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8 MODULE MAILSMSGSUBS( ZTITL pA MESSAGE SUBROUTINES' 
BEGIN IDENT = 'V04-000" ) = 


' 
Lee R AERA AAA A EAA A ERAT EAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hl a yy ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ eePORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


® 
® 
® 
*® 
x 
® 
® 
* 
® 
! x 
ie TRANSFERRED. * 
® 
y 
® 
* 
* 
® 
* 
t 
*® 
® 


; 1 : 
: g 1 : 
te ¢ 1 ; 
> Z irae 3 
;.y S00 | 
; 8 0] 1 : 
3 9 0 1 3 
3 10 0 1 § 
; V’ 0 ! : 
: ig 8 1 : 
3 14 0 1! 3 
3 15 0 1! 3 
: 16 0 1 : 
: 17 0 1 - 
é 18 0 | | 3 
3 19 0 1 é 
; 20 0 1 3 
BY 2 
> 23 0023 1 ix DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS : 
; 34 0 34 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
: 26 0026 1 is ; 
3 a7 8 st : tienen aaa nih nisin itai niente | D4 
s 28 ! 3 
5 29 0029 1 : 
3 30 0030 1 !++4 | F 
; 31 0 ; i FACILITY: VAX/VMS MAIL UTILITY ; 
3 33 8 38 : : ABSTRACT: Subroutines to read and write message files. ; 
i 35 0035 1 | ENVIRONMENT: NATIVE/USER MODE | 3 
4 0037 1 | AUTHOR: Len Kawell, CREATION DATE: 07-NOV-1979 | : 
; 39 0039 1 i MODIFIED BY: | : 
3 40 0040 1! 3 
> 41 0041 1: V03-018 BLS0263 Benn Schreiber 5-FEB-1984 | ; 
; ri} 8 ri} : Make routines called by L TBSRENAME global. | : 
: hd 0 64 15 v03-017 BL S0255 Benn Schreiber 28-Dec-1983 : 
: # 8 rt ' New global flags. : 
. ar 0047 1 | v03-016 BLS0250 Benn Schreiber 9-Dec-1983 | : 
: 68 0048 1! Don't allow multip le versions of MAIL.MAI to have 3 
; $3 sie ’ } sined file organizations. : 
wai 0051 1: v03-015 BLS0252 Benn Schreiber 9-Dec-1983 | : 
: 26 B828 : Look at correct bit for noautopurge. : 
: 54 0054 1: v03-014 BLSO246 Benn Schreiber 28-Nov-1983 : 
3 :? boas : Remove some own storage to shrink image : 
; 0057 1 vO3-013 BLS0229 Benn Schreiber 16-Jul-1983 ; 
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; 28 R38 ! } Rename old mail file after conversion. ° 
; 60 060 1 | v03-012 BLS0227 Benn Schreiber 29-Jun-1983 | ; 
s; $§) 061 1! Call MAILSCLR_DIR_FLAG to clear directory display context ; 
3 $¢ Bae : when closing mail file. : 
> 64 064 1 v03-011 BLS0225 Benn Schreiber 17-Jun-1983 | 3 
; 0065 1! Enable DFW if MAILSB_DFW is set. Use UTILSGETFILENAME : 
: # BRP i for retrieving file Specs from fabs. : 
; 68 0068 1: v03-010 BLS0222 Benn Schreiber 15-May-1983 ; 
; 34 ! } Small corrections. : 
: (71 0071 1! v03-009 BLS0221 Benn Schreiber 5-May-1983 ; 
; BRF ! Correct SYSPRV handling : 
>; th 0074 1 | v03-008 BLS0214 Benn Schreiber 27-Mar-1983 ; 
Tee | 0075 1! Modify new message handling. Correct nam block : 
; rg Burs ; usage error in open_new_file | : 
: 78 0078 1: v03-007 BLS0211 Benn Schreiber 13-Mar-1983 ; 
3 He4 it : Extensive rework for ISAM mail files | : 
: 81 0081 1 | V03-006 8LS0197 Benn Schreiber 9-Dec-1982 ; 
; : Boe ! Implement SET PERSONAL_NAME command. : 
ne 7 0084 1 | v03-005 BLS0191 Benn Schreiber 27-0¢t-1982 | 
; 8 0085 1! Use system default MBC. Check errors in MAILSSEND_MSG ; 
; = =86 0086 1! better. Do not write <FF><From: name> from the message | : 
; 44 4 $4 ; text. This is a new message marker. . 
; 8 0089 1 V03-004 BLS0189 Benn Schreiber 19-Oct-1982 ; 
; 0090 1! Clean up file data initialization. Interlock the : 
; 0091 1! DELETE mail function with the READ function, so that ‘ 
3 O08 : a mail message that has not been read cannot be deleted. : 
: 9 009% 1 | v03-003 BLS0188 Benn Schreiber 4-0c t-1982 ; 
; sag : Correct problem in directory Listing with hyphenated : 
: 9? 0097 1 | ome: 
; «98 0098 1! v03-002 BLS0184 Benn Schreiber 20-Aug-1982 : 
; 99 0099 1! Delete old MAIL.TMP's when starting up. This prevents 3 
: 100 0100 1! aborting the sending of a message and having some old : 
s Ww Bibs 1} porvege being sent. Correct error in info_msg which : 
; 18 3106 : Caused accvio if no date on ‘from’ Line. : 
; 104 0104 1 | v03-001 BLS0177 Benn Schreiber 21-Jun-1982 | ; 
; 105 big2 2 Add MAIL$Q_MSG_FNM descriptor which describes the ; 
3 +4 gine ! } filename part Of the message file file spec. : 
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Be 
3 4) 
ra 11 
s 1 
7 ae 
6 11 
ra 11 
3 4} 
; 3 
= 
; ¥ 
coe 
: \§ 
: 3 
; ie 
; \§ 
at 
ii 
3; 13 
3 134 
; 135 
; 136 
;. 3 
; 13 
3 19 
: 14 
3; 14 
: 14 
; 14 
; 14 
$e... 
: 14 
> 14 
; 14 
: 14 
3; 13 
eet) 
: 
; 
3 3 
; i 
ae 
» 
.. Te 
“See, 
: 16 
; 1 
; 16 
; 
3; 
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! i 
TABLE OF CONTENTS: 

i 
INCLUDE FILES: | 
; LIBRARY VSYSSLIBRARY : STARLET; 


REQUIRE "SRc$:MAILREQ'; 
LIBRARY ‘LIBS:MAI/.DEF'; 


LITERAL 
LEAVE_SEQ = 0; !0 >> convert to isam 


FORWARD ROUTINE 
MAILSCLOSE_ FILE: NOVALUE, ! Close current message file 
MAILSREWIND MSG, ! Rewind current message 
OPEN_NEWF ILE; ! Open new messages file 
| MACROS: 


MACRO 


RECSIZ(RECPTR) = ! Get message record size 
(RECPTR)<O,RECSIZ_SIZ * 8>%; 


MACRO MSGDELIM(RECPTR) = ! Check for message delimiter 
(( RECSIZ¢ et 2 €¢ 


RECPTR 

AND (CHSRCHAR(RE ) EQL FF) 
IZ(RECPTR + R + 1) GTRU ZCHARCOUNT('From')) 
PTR + 2*RECSI ) EQL ‘From'))2; 

MACRO ee ah Pr = ! Get new message flag address 


L_ PTR; 
PTR = MSGPTR + RECSIZ_SIZ + .RECSIZ(MSGPTR); ! Skip delimiter 
«PTR + RECSIZ_SIZ + .RECSIZ(.PTR) - 1)%; ! Addr of last char 
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EQUATED SYMBOLS: 


LITERAL 
FROM SIZ ZCHARCOUNT('From: *), ! Size of from delimiter 
ZCHARCOUNT('To: *), ! Size of ‘‘to'’ delimeter | 
255, ! Maximum message record size 
: ! Message buffer record size 
XCHARCOUNT("Subj: '); | Size of subject delimiter 


— 


MARRECSIZ 
RECSIZ SIZ 
SUBJ_STZ 


CSOOOO0OO OO OW 090 00 00 09 09 09 09 SINSINSI SIN NSN NSN NIA A AAAAOAAOA ROO "00 


Oooooo 


MACRO 


MARIPINIPIPIPINPIPINININININININIPINININININININININININININININININNNININNIN 2 2 OO 


DEFFILENAM 
DEFFILETYP 


: EXTERNAL REFERENCES: 


EXTERNAL 
MAILSGL_FLAGS : $BBLOCK 
MAIL$SD-NEWMAIL : S$BBLOCK 
MAILSL_CURMSG : REF $BBLOCK 
MAILSL~SYSMAIBUF: REF $BBLOCK, 


ne 
“= 
> 


*%, ! Default message file name | 
ie ! Default message file type 


! Mail control tlegs 

Descriptor for 'NEWMAIL' 
Descriptor of current ISAM msg 
Pointer to VMSMAIL record 
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-Sep-19 

4-Sep-19 
H 166 19 1 MAILSL_USRSYSBUF : REF S$BBLOCK, ' User's vmsmail record 
; 1 1 MAILSB_DFW : BYT ' True if FOP=DFW 
; 168 \§ 1 MAILS$Q_TMPFILE pes: BBLOCK, ' Descriptor for MAIL.TMP 
; 169 15 1 MAILSQ_USERNAME :BLOCK(,BYTEJ, ! User's name descriptor 
: 170 14°=«1 ! descr que 
; Ve) 1? : MAILSQ_MAILDEF : SBBLOCK; : ‘dev:tdir mail.mai' 
; 178 i3 1 EXTERNAL ROUTINE 
3; 6174 18 «#1 MAILSCLR_DIR_FLAG, ! Clear directory gisp tay flags 
; 175 0319 1 MAILSCOPY_MSGS, ' Copy msgs into ISAM folder 
; 176 0320 1 MAILSDESECECT_MSGS ! Delete in-memory index 
: 177 O3¢1 MAILSEMPTY WASTEBASKET, i Delete msgs in wastebasket 
; «(178 ; 1 MAILSGET_IAPUT, ' Read from the terminal 
: 179 0 1 MAILSGETASG, ! Get message text 
: 180 0324 1 MAILSISAM_INIT, ' Init ISAM data 
; «(181 0325 1 MAILSUPDATE_I_MSG, ! Update ISAM message record 
3 1s 03 § 1 MAILSUP_PRID ' Raise privileges 
: 18 0327 1 MAILSDOON PRiv, i lower privileges 
> (184 base 1 LIBSFILE_SCAN, ! Perform wild-card file scan 
: 185 +4 1 LIBSFID_TO ; ! Convert fid to name 
; «(186 0330 1 LIBSFREE_VA, ! Free virtual memory 
; «187 0331 1 LIBSGET_9M, ! Get virtual memory 
; 188 thE 1 LIBSRENAME FILE, ! Rename a file 
; (189 0333 1 STRSCOPY DR, ! String copy 
3 199 0334 1 STRSFREET_DX, ' Deallocate dynamic string 
; «191 0335 1 OTSS$SCOPY_R_DX, ! string copy 
: 19 0336 1 UTILSGETFILENAME, ! Get file spec for fab 
; \Sz tHe : UTILSREPORT_IO_ERROR; ! Report I/0 error 
; «195 0339 1 ! OWN STORAGE: 
: 199 0341 1 OWN 
; 198 Oets 1 EXITSTATUS: LONG ' Exit status 
; 199 0343 (1 EXITBLOCK: VECTORL4) ! Exit handler control block 
; sot 0344 1 INITIAL(O, ! Forward Link 
; 201 0345 1 MAILSCLOSE_FILE,! Routine address 
; one 0346 1 1, ! Argument count | 
$ $3 0347 1 EXITSTATUS), ! Location to receive status 
: 204 0348 1 MODIFIED: LONG; ! Buffer modified flag 
: 506 0380 1 | 
3 it 0332 ! ; Current message file being read RMS blocks 
: 209 53 1 OWN 
; $08 $337 1 DYN_DESC : DYN_DESC_DECL ‘Dynamic descriptor 
: 211 0355 1 RD_RSNAM_BUF: ~ REF -VECTORC,BYTE), i Resultant name string buf 
: 212 0356 1 RD_ESNAM_BUF: REF VECTORL,BYTE), ' Expanded name string buffer 
: 213 0357 1 RD“ESNAM-DESC: DYN_DESC_DECL, i Expanded name string desc 
: 214 358 1 RD_NAM: ! Name block 
3 15 359 1 SNAM_DECL, : 
3 1 1 RD_FAB: ! File access block 
; 21 0361 1 SFAB_DECL, 
: 218 0 1 RD_RAB: ! Record access block 
; 4 0 ! $RAB_DECL; 
: 21 1 GLOBAL BIND 
> 222 0 1 MAIL$T_RD_RAB = RD_RAB, 
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; ? of } MAIL$Q_RD_DESC = RD_ESNAM_DESC; 

3 ‘ 9 : : Current message buffer parameters 

; 71 1 | 

3 8 6 ie 1 MSG_BUF_ASIZ: LONG, ! Message buffer size allocated 

3 9 8 73 (1 MSG_BUF _ADR: LONG, ! Message buffer address 

3 0 74 «1 MSG_BUF _SI2: LONG, ! Message buffer size 

; 1 8 Ne : MSG_ADR: LONG; ! Message address 

; : § 1 GLOBAL BIND 

; 4 78 1 MAILSL_MSGBUFSIZ = MSG_BUF_SIZ; ! Make available externally 

; 5 79 1 GLOBAL 

; 80 1 MAILSL_RECBUF : REF SBBLOCK ' Pointer to isam buffer 

; 7 0381 1 MAIL$Q_MSG_FILE: DYN pest DECL, ! Message file name desc 

; 8 0 Hf 1 MAIL$Q_MSG_FNM: BLOCR(8,BYTE), ! Message file filename descr. 

3 9 0385 1 MAILSL_MSG_STS: LONG ! Message status 

; 240 0384 1 INITIAL (MAILS_NOTREADIN) ' 

: 241 0385 1 MAILSL_MSG_NUM: LONG, ! Message number 

3 seg 0386 1 MAIL$W_MSG_RSIZ:WORD, ! Message record size | 

; sti 3444 ! : MAILSL_MSG_RADR:LONG; ! Message record address 

; 245 0389 1 ! Send/File message RMS blocks | 

; 246 0390 1! 

> 247 0391 1 GLOBAL BIND 

: 248 $454 1 MAILSQ_MSGTYPE = DESCRIPTOR(DEFFILETYP),! Default mail message filetype 

; 249 03935 1 MAILSQ_MSGNAME = DESCRIPTOR(DEFFILENAM):! Default mail message filename 

; 250 0394 1 BLOCKL BYTE); 

; $2) 0395 1! 

3 26 0396 1 ! Define shared messages for MAIL 

3 $2 0397 1! 

; 54 P 0398 1 SSHR_MSGDEF (MAIL,126,LOCAL, 

: $22 P 0399 1 (R . ESS) 

; 256 P0400 1 (SEARCHFAIL, ERROR), | 

g aor P 0401 1 (OPENIN, ERROR) | 

; 258 P 0402 1 (READERR, ERRORS 

; 259 P0403 1 (WRITEERR, ERRORS 

; 260 0404 1 (CLOSEOUT. ERROR) 5S; | 
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; ° 183 ! GLOBAL ROUTINE MAILSFIND_MSG(MSGNUM,NEW_FILE) = 
: re: 497 : FUNCTIONAL DESCRIPTION: 
; 08 409 1! This routine finds the specified message and sets the current message 
: 26 410 1! pointers to describe it. 
; 268 411 1! 
: 9 tig 1 ! INPUTS: 
: 0 415 1! 
; 271 414 1! MSGNUM = Relative message number desired. 
s 2 0415 1! = Zero if next message is desired. 
s a 3618 NEW_FILE = true if new file just opened. Need not be specified 
; 274 0417 1! if false. 
; 275 0418 1! 
; 276 0419 1 ! OUTPUTS: 
3 aT 0420 1! 
: 278 421 1! MAIL$L_MSG_NUM = Current message number. 
; e279 04 ¢ 1: MAILSL_MSG_ADR = Address of first record in message. 
3 sy Bs ? : MAILSL_MSG_STS = Status of current message. 
H sag beSe 1! ALt failures are signalled as well as returned. 
3 $s 0426 1 !-- 
> 284 0427 BEGIN 
; «285 0428 BUILTIN 
; 286 0429 ACTUALCOUNT; 
s gor 0430 
; 288 0431 LOCAL 
; 289 oR 2 SRCH_MSGNUM, ! Messge number to search for 
; $30 oth § POINTER; ! Message buffer pointer 
; 4 0435 MAILSGL_FLAGSCMAIF V_READ_FLJ = 0; 
; 0436 IF ACTUALCOUNT() GEQO 2 
; 294 0437 THE . FILE 
; 295 0438 AND .MSGRUM EQL 0 
F $38 0439 THEN BEGIN 
:; 27 0440 MAILSL_MSG_STS = STSS$K_SUCCESS; 
; 298 0441 MAILSREWIND_MSG(); 
: 99 044 3 RETURN TRUE 
; 300 044 END; 
: 01 0444 ’ 
; 0445 ! If specified message number is zero, then searching for next message, 
3 B27 Ree else, searching for specified message number. 
; 305 448 SRCH_MSGNUM = (IF gt EQL 0 THEN (.MAILSL_MSG_NUM + 1) ELSE .MSGNUM); 
: 306 449 IF .MAILSL_MSG_NUM EQL 
3 be peed _ THEN MAILSC_MSG_NUM = 1; 
; 44 Ot 3g : Check that a message file is open and there are messages in the file. 
: 311 beee IF .MSG_BUF_ADR EQL 0 
: i 455 THEN 
ae 8628 (SIGNAL (MAIL$_NOTREADIN); RETURN MAILS$_NOTREADIN); 
: 314 045 IF .MSG_BUF_SIZ EQL 0 
; 315 £28 THEN 
3 1 rbd (SIGNAL (MAILS_NOMOREMSG); RETURN MAILS$_NOMOREMSG) ; 
: 18 461 ! If the specified message number is less thar, the current message number 
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! or there is no current message, then set the message file pointers to 


the beginning of the buffer, so the message search will start over again. 


IF (.SRCH_MSGNUM a -MAILSL_MSG_NUM) ! If number Less than current 
OR (.MSG_ADR EQL 0) ! or, no current message 
THEN  §EGIN 
MAILSL_MSG_NUM = 1; ! Re-init current number 
RSG_ADR = JMSG_BUF_ADR; ! Re-init current pointer 


i Search through the messages until the relative message number equals 
! the specified message number or the end of the buffer is reached. 


' 

i 

i 

i 

POINTER = .MSG_ADR; 
NT 


! Start at current message 


UNTIL (.MAILSL_MSG_NUM GEQU .SRCH_MSGNUM) 
OR ((POINTER = [POINTER + .RECSIZ(.POINTER) + RECSIZ_SIZ) 
GEQU (.MSG_BUF_ADR + .MSG_BUF_SIZ)) 
dO BEGIN ; 
IF MSGDELIM(.POINTER) ! If message delimiter 
THEN BEGIN ! then, found new message 
MSG_ADR = .POINTER; 
BAICSL ASG_NUA = .MAILSL_MSG_NUM + 1; 
END; 


! 
Set the current reccord context to the first text record in the message. 


MAILSL_MSG_RADR = .MSG_ADR + 2*RECSIZ_SIZ + .RECSIZ(.MSG_ADR); ! Skip delimiter 
MAILSW_MSG_RSIZ eRECSIZ(.MAILSL_MSG_RADR - RECSIZ_S12Z); 


; If the next message was requested and no more were found, return ‘'no more". 
if _(.MSGNUM EQL 0) AND (.MAILSL_MSG_NUM LSSU .SRCH_MSGNUM) 
MAILSL_MSG_STS = MAIL$_NOMOREMSG 


ELSE 
MAILSL_MSG_STS = STSSK_SUCCESS; 
RETURN .MAILSL_MSG_STS 


= POPOPONOPU IPO PUPOPONUNPOPUNOTUW SE BB BWW 
m 4 


-TITLE MAILSMSGSUBS MAIL MESSAGE SUBROUTINES 
-IDENT \v04-000\ 


-PSECT S$CODES,NOWRT,2 


49 41 4D i 00000 P.AAB: .ASCII \.MAI\ 
S444 4 G0004 P.AAA: .LONG 4 
00000000° 00008 -ADDRESS P.AAB 

4C 49 41 40 QQ00C P.AAD: .ASCII \MAIL\ 
00000004 00010 P.AAC: .LONG 4 
00000000" 00014 -ADDRESS P.AAD 


-PSECT SOWNS,NOEXE,2 


00000 EXITSTATUS: 
-BLKB 4 
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00000000 00004 EXITBLOCK: 


-LONG 0 
ov 8 sADDRESS MAILSCLOSE_FILE 
6 «LONG 1 
0° 1 “ee EXITSTATUS 
B 


14 MODIFI x 
00# 00018 DYN DESC: 
02 O€ O14 “BYTE 
1 .BLKB 
002 RD_RSNAM_BUF : 
00024 RD_ESNAM_BUF : 
“BLKB 
00# 00028 RD_ESNAM_DESC: 
“BYTE 
02 O€ 00 ange “BYTE 
000 : 
484 RD-FAB: .BLKB 
000 OE RD-RAB: .BLKB 
00124 mSG_BUF -Asiz: 
00128 MSG_BUF ADR: 
0012¢ NSG_BUF_S17: 
00130 MSG_ADR: .BLKB 
.PSECT $GLOBAL$,NOEXE,2 
00000 MAILSL_RECBUF : 


*= ™ 
ws 
>. 


or 
~m 
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eee 


snr fF fF OWOFLO fF Ff FO FF 
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LKB. | 
00# 00004 MAILSQ_M&G FILE:: 
"BYTE OC2] | 
02 0& 00006 "BYTE 14,2 | 
00008 BLKB | 
0000C MAILS$Q_MSG FNM: 
007£8022 00014 MAILSL_MSG_STS:: | 
* 8290338 


LON 
00018 MAILSL_MSG_NUM: : 
0001C MAILS$W_MSG_RSIZ:: 

-BCKB 


43 -BLKB 
$002 MAILSL ASG aes 


C 
MAIL$T_RD_RAB== RD_RAB 
MAIL$Q-RD-DESC== RD gt SNAN DESC 
MAILSL_MSGBUF S1Z== as G6 F_S12 
MAILSQ_ASGTYRESs 
MAILS$Q_MS zs 


GNAME ane 
~EXTRN MAILSEL FLAGS, MAILS$SD_NEWMAIL 
~EXTRN MAILSL _CURMSG, MAILSL_SYSMAIBUF 
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EXTRN MAILS$L_USRSYSBUF | : 
SEXTRN MAILSB-DFW, MAILS$Q_TMPFILE_DESC : 
-EXTRN MAIL$Q~USERNAME | : 
.EXTRN MAILS$Q-MAILDEF, MAILSCLR_DIR_FLAG | : 
.EXTRN MAILSCOPY_MSGS, MAILSDESELECT_MSGS | : 
“EXTRN MAILSEMPTY WASTEBASKET ; 
-EXTRN MAILSGET_INPUT, MAILSGETMSG | ; 
-EXTRN MAILSISAR_INIT, MAILSUPDATE_I_MSG | : 
EXTRN MAILSUP PRIV, MAILSDOWN_PRIV | : 
EXTRN LIBSFILE_SCAN, LIBSFID_TO_NAME : 
EXTRN LIBSFREE-VM, LIBSGET_VA ; 
EXTRN LIBSRENAME FILE | : 
EXTRN STRSCOPY_DR, STRSFREE1_Dx | : 
-EXTRN OTSS$SCOPY_R_DX, UTILSGETFILENAME ; 
-EXTRN UTILSREPORT—10_ERROR | : 
.PSECT SCODES,NOWRT,2 | 
007¢ 00000 ENTRY MAILSFIND_MSG, Save R2,R3,R4,R5,R6 : 0405. ; 
56 000000006 00 9€ 00002 MOVAB LIBSSIGNAC, R6 F : 
55 00000000' 00 9€ 9009 MOVAB MSG_ADR, R : ; 
5% 00000000' 00 9€E 00010 MOVAB MAICSL_MSG_NUM, R4 : : 
000000006 00 40 8F 8A Boott BICB2 #64, MAILSGL_FLAGS 3 0435 ; 
02 6C 91 OOOIF CMPB_ (APS, #2 ; 0436 : 
18 1F 00022 BLSSU 1$ : ’ 
14 08 AC €E9 00024 BLBC  NEW_FILE, 1$ + 0437 c 
04 AC DS 90038 TSTL | MSGRUM : 0438) 3 
OF 12 00028 BNEQ ~=s«d1$ : : 
FC AG 01 D0 90020 MOVL #1, MAILSL_MSG_STS + 0440 F 
00000000v 00 00 FB 00031 CALLS #0. MAILSREWIND_MSG + 0441 : 
50 01 DO 00038 MOVL #1, RO > 0442 ; 
04 00038 RET > : 
53 D4 0003C 18 CLRL = RB + 0448 : 
04 AC DS 9003 TSTL © MSGNUM : F 
08 12 00041 BNEG = -2$ : F 
53 6 90045 INCL. R3 ; F 
52 64 01 C1 0004 ADDL3 #1, MAILSL_MSG_NUM, SRCH_MSGNUM : ; 
4 11 00049 BRB 3s" : ; 
52 04 AC 09 0048 38: MOVL § MSGNUM, SRCH_MSGNUM : ; 
64 D5 OO04F 3S: TSTL | MAILSL_MSG_NOM + 0449 3 
03 12 00051 BNEG 4 : : 
64 01 09 0053 MOVL #1, MAILS$L_MSG_NUM + 0450 : 
F8 AS DS 00056 4s: TSTL | MSG_BUF_ADR : 0454 ; 
11 (12 0099 BNEQ : | ; 
007E8022 8F ODD B PUSHL #8290338 > 0456 | ; 
66 01 FB 0061 CALLS #1 L18$S1GNAL ; : 
50 0O7E8022 8F DO 00064 MOVL #8290338, RO : ; 
04 00068 RET ; : 
FC OAS D3 006C 5$: TSTL § MSG_BUF_SIZ > 0457 ; 
111 O06 BNE a ; F 
007E8042 8F DD 00071 PUSHL #8290370 : 0459 : 
$6 91 FB 0077 CALLS #1 L1B$S1GNAL ; : 
50 007E8042 BF B0 ote HOVL #8290370, RO : : 
64 52 01 OR 63: CMPL SRCH_MSGNUM, MAILSL_MSG_NUM > 0465 : 
04 1F 008 BLSSU7$ : ; 
65 D5 00087 TSTL | MSG_ADR : 0466 | : 
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07 1 9 BNEQ 8S : | 
64 1 0 B 7S: MOVL #1, MAILS$L_MSG_NUM + 0468 
5 F8 A? D MOVL MSG _BUFLADR MSG. ADR + 0469 
9 65 D 8s MOVL § MSG-ADR> POINTER + 0475 
64 D1 00095 9$ CMPL MAICSL_ MSG_NUM, SRCH_MSGNUM + 0476 
5 1€& 0009 BGEGU 10 ; 
51 6 gh 9A MOV ZBL (POINTER) » RI + 0477 
g 01 A14 F 9 MOV 1(R1)CPOINTER], POINTER : 
51 FB OA FC OAS OC A ADDL3 MSG BUF_SIZ, MSG_BUF_ADR, R1 + 0473 
5} 50 D1 OOOA CMPL POINTERS R1 : 
2 it OOAB BGEGU 10$ : 
01 6 ? 0 AD CMPB = (POINTER), #1 + 0480 
E é 0B BNEQ 9S : 
0c 01 Ad 91 0008 CMPB =: 1(POINTER), #12 : 
DD 12 0008 BNEQ 69S : 
04 02 AQ 91 0008 CMPB (POINTER), #4 : 
D7? 1B 0008C BLEQU 9S ; 
6D6F7246 BF 03 AO D| OO0BE CPL (POINTER), #1836020294 : 
65 0 8 $00¢8 MOVL POINTER. iss ADR + 0482 
64 06 000CB INCL MAILSL_MSG_NOM 3 0483 
C6 11 000CD BRB 9$ + 0476 
50 65 DO OOOCF 10$:  MOVL  $MSG_ADR, RO + 0489 
51 60 9A 90062 MOVZBL (R : 
08 A 02 A140 oe 0000 OVAB 2(R1SCROJ, MAILS$L_MSG_RADR 3 
50 08 A& DO 000DB MOVL MA ILS _MSG_RADR, + 0490 
04 AG FFA 8 O00DF MOVZBW =-1(RO), MATL$W_MSG_RSIZ : 
OF 53 £9 O00E4 BLBC ~—-aR3,, 1 + 0494 
52 64 D1 000E7 CMPL § MAILSL_MSG_NUM, SRCH_MSGNUM : 
OA 1€ OOOEA BGEQU : 
FC A& 007E8042 of 06 OOdEC MOVL edt MAILSL_MSG_STS > 0496 
FC OAG 01 DO OOOF6 11$:  MOVL MAILSL_MSG_STS : 0498 
50 FC AG DO OOOFA 12$:  MOVL maluse _MSG~STS; RO : 0499 
04 OOOFE RET > 0500 


; Routine Size: 255 bytes, Routine Base: $CODE$ + 0018 
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GLOBAL ROUTINE MAILSGE1_MSG = 
; FUNCTIONAL DESCRIPTION: 


This routine finds the next record in the current message and sets 
the size and address parameters to describe it. 


i INPUTS: 


' 

' 

' 

' 

' 

; MAILS$W_MSG_RSIZ = Current message record size. 
MAILSL_MSG_RADR = Current message record address. 
' 

' 

' 

' 

' 


i OUTPUTS: 


MAILSW_MSG_RSIZ = Next message record size. 
RAICat-Ree 


RADR 
MA MSG_STS = STSS$K_SUCCESS if another record exists. 


: = Zero Tf no more records in message. 


© De Se Se Se Se Ge Se Ge Ge Ge Se St CHS Se Ge SH Se SH eee 


the end of the buffer or is anotner message delimiter. 


MAILSL_MSG_RADR = .MAILSL_MSG_RADR + .MAILS$W_MSG_RSIZ + RECSIZ_SIZ; 
F .MAILSL_MSG_RADR GTRU T.MSG_BUF_ADR + .MSG_BUF_SIZ) 
OR RSGDELIAC ARILSL_ASG_RADR -"RECSIZ_SIZ) 


MAILSL_MSG_STS = 0 
ELSE BEGIN 
MAILSW_MSG_RSIZ = .RECSIZ(.MA 
MAILSL_MSG_STS = STSS$K_SUCCES 


ND; 
RETURN .MAILSL_MSG_STS 
END; 


SHURAR WHO 


ILSL_MSG_RADR - RECSIZ_S1Z); 
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hehe ehh dh hb bb dh bbb db dh dh dh ch dub ch duh ech dh dh dh db dh dh Ad 


ase sar~endase-2e bee 
ABIES WN $$ O OONAUS WIN (CO OONOUS WN -"O0O@ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
! Set pointer and size to next record, unless next record is past 
1 


Be Se Se Ge Oe Ge Oe Ge Ge Oe BH Sse oe & 
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WNW 
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= Next message record address. 


0004 00000 .ENTRY MAILSGET_MSG, Save R2 : 0502 
52 00000000' 00 9€ 9002 MOVAB MAILSL_MSG_RADR, R : 
5 FC OA 3¢ 000 MOVZWL MAILSWMSG-RSIZ. R + 0526 
30 6 § 9900 ADDL2 MAIL SL_MSG RA ; 
: 01 OA i 1 MOVAB 1(RO), MAICSL_MSG_RADR : 
1 62 DO 00014 MOVL. MAILSL_MSG_RADR, Ri : 0527 
50 00000000' 90 00000000° Q C1 00017 ADDL3 MSG _BUF_SIZ, MSG_BUF_ADR, RO : 
1 01 0 3 CMPL R1,°R ; 
if 1A 6 BGTRU 1$ ; 
50 FF OAI 3 0 MOV -1(R1), RO + 0528 
01 60 91 000eC CMPB ss (RO), #1 ; 
1 i O2F BNEQ es 3 
0c 01 AO 9 1 CMPB (RO), #12 : 
15 12 3 BNEQ $ : 
04 02 ad 91 CMPB (RO), #4 F 
OF 1B B BLEQU 2$ : 
6D6F7246 = BF 03 AO D1 00030 CMPL (RO), #1836020294 : 
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2$ 
MAILSL_MSG_STS 
Ae tt MSG_RSIZ 


i oe) 


So 
rPororo 


Ne ON" 


MSG_STS~ 


mAILSL tase: “STS; RO 


3; Routine Size: SCODES + 0117 


Ww 
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; Routine Size: 64 bytes, 


MAIL MESSAGE SUBROUTINES 


GLOBAL ROUTINE MAILSREWIND_MSG = 
; FUNCTIONAL DESCRIPTION: 


INPUTS: 


OUTPUTS: 


BEGIN 
IF (NOT .MAILS 
OR .MSG_ADR EQ 
THEN 


UR 


RETURN 
MAILSL_MSG_RADR 
S 


MAILSW a4] 
Ae TRU 


oc 
08 


MAIL$W_MSG_RSIZ 
MAILS$LMSG-RADR 


AND .MAILSL_MSG_STS NEQ 0) 


oS 
So 


ovu7co OCU OOCT O90 —- 9 >] moO OOO 
ATION = 3 3 3 3 3OOO 


SSSFS> NEWOPOOWOONMO 


> 
o 
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Rovtine Base: $CODE$S + 0171 
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16-Sep-1984 01:08:07 VAX-11 Bliss-32 V4.0-742 

132800138 93:08:98 DISKSVMSMASTER: CMAIL.SRCIMSGSUBS .B32 
This routine ‘‘rewinds’’ the current message by resetting the current 
record pointers to the first text record in the message. 

MSG_ADR = Address of first record in current message. 

Size of first text record in current message. 


Address of first text record in current message. 


ADR); ! Skip delimiter 


MAILSREWIND_MSG, Save R2,R3 
MSG_ADR, R 

MAICSL_MSG_STS, R2 
MAILSL_MSG_STS, RO 

RO, 1$ 

BSG_ADR 

#8290338, RO 

MSG_ADR, R1 


(R1 
2(ROSCR1], MAILS$L_MSG_RADR 
MAILSL_MSG_RADR, 

-1(RO); MATLS$W_MSG_RSIZ 
HE MAILSL_MSG_STS 


<z 
o,r 
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=32 V4.0-742 Pa age 
14-Sep-1984 DISKSVMSMASTER: 


1 
CMAIL.SRCIMSGSUBS.B32;1 (6 


H : 5 26? ! FL OSAL ROUTINE MAILSINFO_MSG(SENDER,SUBJ,DATE,TO_DESC, MESSAGE_SIZE) = 
; 2 ? 56) : FUNCTIONAL DESCRIPTION: 

; 429 282 1} This routine is called to get the sender, date/time, subject, 

; 4350 570 1! and size of the current message. 
3; 65) 571 1! 
: 4 ; 2f6 1 | INPUTS: 

s & 57 1 i 
; 434 574 1: SENDER = Address of descriptor of buffer to receive message sender. 

; 435 0575 1: SUBJ = Address of descriptor of buffer to receive message subject. 

; <3? B28 : DATE = Opt tonal address of descriptor of buffer to receive date/time 
; | 
; 438 0578 1: DESC = 20 ptional. address of descriptor for ‘'to’’ list | 
; 439 0579 1: meSSAcE SIZE = Optional address of longword to T+ message size 

; 440 0580 1 / “Cin bytes) 

3 441 0581 1} 
: 44 bes 1 ! OUTPUTS: | 
3; 44 0583 1! 

3 4446 0584 1! Message info copied to buffers. 

3; 6445 0585 1 i-- 

3; 446 0586 BEGIN 

: 447 0587 BUILTIN | 
: 448 0588 NULLPARAMETER, 

: 449 0589 ACTUALCOUNT; ! Arguinent count | 
: 450 0590 LOCA 

; 451 0591 ‘ MSGADDR, 

; $28 6236 POINTER_1, ! String pointer 

; 45 0593 2 POINTER_ . 

: 454 0594 § POINTER, | 
3; «4455 0595 

: 456 P 0596 2 IF_ERR( RAjt SREWING MSG();, ! Rewind the message 

: 457 0597 RETURN .STATUS); 

; 458 0598 ! | 
3; 459 0599 i Get the sender of the current message 

: 460 0600 i 

; 461 0601 POINTER 

; 46 0602 1p MAICSU “usé _RSIZ GTRU FROM_SIZ 

; 464 0604 POINTER_1 = CHSFIND_CH(. te MSG_RSIZ - FROM_SIZ, ! Find end of name 

3 red bee MAIL L_MSG_ RADR + FROM_STZ, 

; 467 9607 1F NOT CHSFAIL(.POINTER_ rf 

; 469 609 OTSSSCOPY_R_DXx¢ ett ~- (.MAILSL_MSG_RADR + FROM_SIZ), 
: 470 0610 MM L_ASG_ RADR + FROM_STZ, 
3 471 0611 RENDER ERT 
3 ore Bei¢ ELSE 
3: «47 61 OTSSSCOPY_R_DX( 0,0,.SENDER); 

3; 474 0614 

3; 475 0615 | Get date of current message 

: 476 8018 

3; 477 61 ir ma NULLPARAMETER(3) 

: «4478 oi8 BEGIN 

3; 479 61 IF “POInTER u Feu 0 

> 480 9620 NTER | . iMAILSL_MSG_RADR + .MAILSW MSG. RSIZ; 

: 681 0621 POINTER et wh FIND_ Look for double quotes 


<= 
<= 


ad 
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3; 4 6 -MAILSW_MSG_RSI7Z=(.POINTER_1-.MAILSL_MSG_RADR), 
; 6 ¢ 6 : ; POINTER oR RAeS 
: 484 624 IF NOT CHSFAIL(.POINTER_2) 
> 485 625 4 THEN BEGIN 
3; 4 6 $ 4 POINTER_3 = CHSFIND_CH( 
3 (48 6 4 -MAILSW MSG RS1Z7-(.POINTER_2=.MAILSL_MSG_RADR), 
3; 6 628 4 «POINTER 2¢T,'''); 
: 489 0629 4 IF NOT CHSFAIL(.POINTER_ 3) 
; 490 0630 4 THEN POINTER_1 = .POINTER_3; 
; 491 0631 END; 
: 49 06 ‘ POINTER_2 = CHSFIND_CH( 
; 49 065 -MATLSW_MSG gPglz-(. POINTER_1-. MAILS. "MSG. *RADR), 
: 494 634 ;POINTER_ 17 
: 495 0635 *)s 
: 496 0636 IF NOT CHSFAIL(. POINTER _2) 
: 497 0637 
3 498 0638 OTS$SCOPY_R_DX( .MAILSW_MSG_RSIZ- 
: 499 0639 (POINTER 2-= .MAILSL _MSG_RADR = 2), 
; 500 0640 -POINTER_2 - 2, 
; 501 0641 3 .DATE) 
; 208 064 ; ELSE 
: 50 064 OTSSSCOPY_R_DX( 0,0,.DATE); 
; 504 0644 2 END; 
; 505 0645 2! 
: 506 0646 2! Get the "to" List | 
; 507 0647 § i | 
; 508 0648 if MAILSGET _MSGO) 
; 509 0649 2 THEN IF~NOT NULLPARAME T ER(4) 
; 510 0650 2 THEN OTSSSCOPY_R =PXC. MAIL$W_MSG_RSIZ = TO_SIZ, 
3; 511 0651 2 MAILSL MSG_RADR + TO_SIZ> 
: 512 0652 2 “DESO); | 
s 515 065 ! 
; 514 0654 2 ! Get subject, if there is one, of the current message 
; 515 0655 2 | | 
; 516 0656 2 IF MAILSGET_MSG() 
: 517 0657 2 THEN | 
; #518 0658 é IF .MAILSW_MSG_RSIZ GTRU SUBJ SIZ 
; 519 0659 AND .(.MAIC$L_ASG_RADR) EQL Subj‘ 
: 330 0660 2 TH | 
: 521 0661 2 OTSS$SCOPY_R_DX( .MAIL$W_MSG_RSIZ - FROM_SIZ, | 
3: 522 0662 2 -MAILSL “MSG_RADR + FROM-SIZ, 
3 a7 066 § . SUBJ) 
: 524 0664 ELSE 
3 536 665 OTS$SCOPY_R_DX‘< 0,0,.SUBJ); 
3 (Ser 066 If requested, count bytes in message 
; 528 0668 
3 2¢3 0669 if NOT NULLPARAMETER(S5) 
: 530 0670 THEN BEGIN 
3 23! 0671 MSGADDR = 
: 3 067 MSGADDR = ASCKDDR: + ,RECSIZ(. MSGADDR) + RECSIZ_SIZ; !Skip From Line 
: 23 673 4 WHILE (.MSGADDR LEQU (.MSG_BUF_ADR + .MSG_8UF_STZ)) 
3; 534 674 & AND NOT MSGDELIM(.MSGADDR)~ 
; «535 675 DO MSGADDR = .MSGADDR + .RECSIZ(.MSGADDR) + RECSIZ_SIZ; 
: 536 0676 MESSAGE S176 = .MSGADDR = .MSG_ADR; 
s Sar 0677 END; 
; 538 0678 2 RETURN TRUE 


<z 
F= 
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; 539 0679 1 END; 
O3FC 0000 .ENTRY MAILSINFO_MSG, Save R2,R3,R4,R5,R6,R7,RB,R9 ; 0565. 
59 FF60 CF 9E 0900¢ MOVAB MAIL$GET_ASG, R9 : 
38 90000000" G0 9 0000 MOVAB MSG_ADR ; 
00000006 00 9E 0005 MOVAB OTSSSCOPY_R_DX, R7 : 
56 00000000' 00 9€ 0001 MOVAB MAILSL_MSG_RADR, R6 ; 
SA Ad 8 FB 001 CALLS #0, MATLSREWIND_MSG : 0597 
01 : 002 BLBS STATUS, 1$ : 
4 000 RET : 
53 b4 90024 1$: CLRL - POINTER_1 > 0601 
50 FC AB 3C 00026 MOVZWL MAIL$W_ASG_RSIZ, RO + 0602 
06 50 B1 O002A CMPW RO, #6 : 
12 1 00020 BLEQU ; 
50 06 C2 0002F SUBL2 #6, RO + 0604 
51 66 DO 00032 MOVL MAILS$L_MSG_RADR, R1 + 0605 
06 Al 50 20 3A 00035 LOCC «=: #32,:~RO, 6TR1) + 0604 
02 12 OOO3A BNEQ 2$ ; 
51 04 0003¢ CLRL ss R11 : 
53 51 00 O003E 2$: MOVL R1, POINTER_1 : 
3g D4 00041 3$: CLRL + 0607 
53 D5 00043 TSTL | POINTER_1 : 
04 12 00045 BNEQ 4$ : 
52 D6 00047 INCL  R2 ; 
OF 11 00049 BRB 5$ : 
04 AC DD 00048 4$ PUSHL SENDER + 0611 
50 66 06 C1 O004E ADDL3 #6, MAILSL_MSG_RADR, RO : 0610 
50 Dp 0005 PUSHL R : 
7E 53 50 ¢3 00054 SUBL3 RO, POINTER_1, -(SP) : 0609 
05 11 00058 BRB 6$ ; 
04 AC bp 0005A 5$ PUSHL SENDER > 0613 
7E 7C 0005D CLRQ. = =(SP) ; 
67 03 FB OO05F 6$ CALLS #3, OTS$SCOPY_R_DX : 
03 6c 91 00062 CMPB ss (AP), #3 : 0617 
72 1F 0006 BLSSU 14 : 
Oc AC D3 00067 TSTL 12 CAP) ; 
6D 13 O006A BEQL 14$ ; 
07 52 £9 9006¢ io... 68, 2 > 0619 
53 FC AB 3C O006F MOVZ2WL MAILS$W_MSG_RSIZ, POINTER_1 : 0620 
53 66 £0 90075 DDL2 MAILSLIMSG-RADR, POINTER@1 ; 
55 FC AG 076 7$ MOVZWL MAILSWIMSG-RSIZ. R5 > 0622 
54 $6 D 0007 MOVL.  MAILSL7MSG"RADR, R4 : 7 OR 
50 54 53 C3 0007D SUBL3. POINTER_1,~R4, RO ; 
50 55 co 0081 ADDL2 5, RO : 
01 a3 50 22 3a 00084 Locé #34, RO, 1(POINTER_1) : 0621 
9¢ 12 00089 BNEQ 8$ F 
1 D4 00088 CLRL R1 3 
52 51 DO 00080 8$ MOVE RI, POINTER.2 : 
os 0090 BEQL ; 06 4 
2 ¢ 0092 SUBL3 POINTER_2, R4, RO ; 0627 | 
¢ 009 ADDL2 R : 
32 A 0099 Locc «=: #34, :- RO, 1(POINTER_2) ; 0626 | 
12 0009E BNEQ 9$ ; | 
| 
| 
_ icra - steer eceeen saath iaeienmes - on } fac 
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18 
-Sep-1984 DISKSVMSMASTER:CMAIL.SRCIMSGSUBS.B32;1 (6) 
4 


oe 


01 0 91 or4¢ CMPB  s (MSGADDR), #1 0674 | 
6 is 14F BNEQ 3 
oc 01 AO 9 01 1 CMPB  -«T(MSGADDR), #12 : | 
10 12 001 5 BNEQ : 
04 02 Ad 91 001 CMPB (MSGADDR), ; 
OA 18 00158 BLEQU 208 : 
6D6F7246 BF 03 AO 01 0015D CMPL (MSGADDR), #1836020294 : | 
0A 1$ 00165 BEQL 21 : 
51 60 9A 00167 208 MOVZBL (MSGA 0675 
50 01 A140 9E 0016A MOV 1 CRS CRSGADERI, MSGADDR : 
06 11 OO16F BRB 19$ : 
14 BC 50 53 C3 00171 21s: SUBL3 3, MSGADDR, @MESSAGE_SIZE + 0676 
50 01 DO 00176 228: MovL #1. RO + 0678 
04 00179 RET : 0679 


; Routine Size: 378 bytes, Routine Base: $CODE$ + 0181 


; 540 


0680 1 


—_—$——— Ce sO — ———— —————— —— -— --- , 


£8 | 
MAILSMSGSUBS § MAIL MESSAGE SUBROUTINES 16-sep- 1:08:07 VAX=11 Bliss-32_v4.0-742 Page 19 
V04-006 erSep-1984 12:48:08 — DISKSVMSMASTERSCMAIL-SRCIMSGSUBS.832;1°° (7) 
: 54 1] GLOBAL ROUTINE MAILSTEST_SUBJ = | 
; $44 $i | FUNCTIONAL DESCRIPTION: 
3 2 5 ! This routine tests if the SUBJ: Line of the message is present | 
; 4 “ ROUTINE VALUE: | 
5 9 B | True if SUBJ: Line present, false if not. 
: ; 691 1 i-- | 
; 3 BEGIN | 
3 4 9 
: 555 694 2 LOCAL 
i $96 0695 STATUS, 
: 55 %6 DESC_1: $BBL Loct 2. 
: 558 069 DESC~2 : $BBLOCK | 
: 559 0698 | 
: 560 0699 2 INIT_DDESC(DESC_1); 
; 361 9700 INIT~DDESC(DESC~2); 
; s 0708 MAILSINFO_MSG(DESC_1,DESC_2); 
: 565 0704 2 STATUS = .DESC_2CDSC$W_LENGTH) NEQ 0; 
: 566 0705 2 STRSFREE1_DX(DESC_1); 
: 567 0706 STRSFREE1-DX(DESC 2); 
; 568 070 
: 569 0708 2 MAILSREWIND_MSG(); 
: 570 0709 | 
: 571 0710 2 RETURN .STATUS 
: 572 0711 1 END; | 


000c 00000 .ENTRY MAILSTEST_SUBJ, Save R2.R3 : 0681 | 
53 000000006 00 3 00002 MOVAB STRSFREE1~DX, R3 : | 
SE 0C C2 00009 SUBL2 #12, SP : 
04 AE 020E0009 BF DO 0000¢ MOVL  #34471936, DESC_1 > 0699 | 
08 AE D4 00014 CLRL DESC 144 : 
0200000 8F DD 00017 PUSHL  #34471936 : 0700 | 
04 AE D4 00010 LRL. —DESC_2+4 : 
SE BD 00 PUSHL SP : 0702 
Oc AE 9F 00 PUSHAB DES 1 : 
FESC CF 2 FB B05 CALLS & , MAILSINFO_MSG 3 
D4 OO02A CLRL > 0704 
6 83 0002C TSTW  DESC_2 : 
2 1 0 BEQL 1$ 3 
06 00 INCL RO : 
52 50 DO 00032 1$: MOVL RO, STATUS : 
08 AE 9F 000 PUSHAB : 0705 
63 1 FB 000 CALLS STRSFREE1_DX : 
E DD 00 PUSHL sp > 0706 
reo. fF 0 FB 00020 ria} RAILSREUIAD MSG : 0708 
5 $ 68 ives MOVL STATUS, : 0710 


MAIL MESSAGE SUBROUTINES ae snsesuss. 832. Page 3 
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MAILSMSGSUBS MAIL MESSAGE SUBROUTINES 53 -1984 01:08:07 VAX-11 Bliss-32 V4.0-742 1 
a “Sep-1984 12:42: DISKSVMSMASTER: CMAIL.SRCIMSGSUBS.B (8) | 
VoLtb08 I$: or yee 93:28:58 ; [ ; 32579 8) 
+ se ROUTINE MAILSTEST_SEQ_NEW = 
; FUNCTIONAL DESCRIPTION: 
; Test if the current sequential message is a new message 
BEGIN 
IF CHSRCHAR(NEWMSGFLAG(.MSG_ADR)) EQL ‘®' 
THEN RETURN TRUE 
> ELSE RETURN FALSE 


Sete Ge Ge Ge Geese Ge Ge Ge eee 
~~ 
wo 
SNS 


PROPOR 3 SS SS ee 


—Ponononon 3 
mm 


WR OOODNOULE wr 


0000 00000 .ENTRY MAILSTEST_SEQ_NEW, Save nothing : 07 
50 00000000' 09 po 90008 MOVL ADR, RO : 07 
51 60 9A 0000 MOVZBL (ROS, Ri : 
50 01 A140 9E 0000C MOVAB 1¢R15 CROJ, PTR : 
51 60 9A 00011 MOVZBL (PTR), R1 s 
2A 6140 91 00014 CMPB (RI)CPTRI, #42 : 
04 12 00018 BNEQ 1$ : 
50 01 DO OOO1A MOVL #1, RO + 0722 
04 9001p RET : 
50 04 OOO1E 1$: CLRL ~— RO : 
04 00020 RET : 0723 


; Routine Size: 33 bytes, Routine Base: S$CODES + 0374 


na 
on 


i] 
9 | 
see es icra amet ICREETOE ADIRRAE | SDUMBAATERZ Ah SEanscss.osoht™ 3] | 
ff St ROUTINE MAILSNEW_MSG = 
S FUNCTIONAL DESCRIPTION: 
91 This routine is called to test if ithe current message is a ‘'new'’ 
59 (previously unread) message. If it is, the new flag in the message 


is cleared. 


wmv 
oO 
wr 


; 724 (1 : 
; ee) \ ;¢ : 
3 7 5 1 : 
5 728 1 3 
: 4 9 1! : 
: 730 1! : 
: 594 731 1 | ; 
; 595 23g 1 | INPUTS: ; 
; 596 7 1! ; 
; 24 4 : : } MSG_ADR = Address of first record in current message. ; 
; 599 7 $ 1 { outputs: | ; 
; 600 07 1! ; 
; 601 0738 1! STSSK_SUCCESS if message is new. : 
3 o0¢ 0739 1! STSSK_ERROR if message is not new. : 
3; & 0740 1 !-- : 
: 604 0741 2 BEGIN : 
; 605 Ores LOCAL ; 
; 606 074 RECBUFFER : SBBLOCKCSBYTEOFFSET(MFR_T_DATA)+8], ; 
; 607 0744 § RECDESC : VECTOREZ, LONG], : 
; 608 0745 TR; ! Buffer pointer ; 
; 609 0746 : 
; 610 0747 IF .MAILSGL_FLAGSCMAIF_V_ISAM] : 
; 611 0748 THEN BEGIN ‘ 
; 612 0749 IF .MAILS$L_CURMSGCMMB_V_NEWMSG) : 
> 61 0750 4 THEN BEGIN : 
3; 614 0751 4 ; 
> 615 B86 4 i Update record in file to show it's been read ‘ 
; 616 075 4 2 
: 617 0754 4 IND ; 
; 618 0755 4 eeee dae RECBUFFERCMFR_Q_DATIM] : VECTORC2,LONGJ, : 
; 619 0756 4 = MAILSL_C URMSGCMMB_T _ADREC] : LOCK, ° 
: ost 3732 : iby = nrR + SBYIEOFFSETTMFR. T DATA): S$BBLOCK; ; 
: 622 0759 4 MMHCMMH_V_NEWMSG) = : 
; 623 0760 4 MAILSL_CURMSGCMMB_vV _NEUMSE) = FALSE; : 
3 66? O76 ? : Only set key to MAIL if it was NEWMAIL | : 
s 627 0764 4 iF CHSEQL(. wees PIL REYLEN fee T FILEKEY), : 
: 628 0765 4 RAICSSb DSC$wW_CENGTH) ; 
: 629 0766 4 “MAILSSD~ ~NEUHA it DSCSATPOINTERS) ; 
> 630 O76? > THEN BEGIN | : 
s 631 768 MFR_B LKEYLEN) = haere git ra a ; 
: 632 0769 5 CHSCOPYTECHARCOUNT (m MAIL") ,UPLIT(ZASCII ‘MAIL"),0, : 
; 63 0770 5 MFR_S_FILEKEY, HER MFR_T_FILEKEYJ); . 
3 ost 44 4 F 
> 635 re mALLSUPDATE. 1_MSGO; | ; 
3 6% 773 4 RETUR : 
: 63 774 4 END : 
; 638 775 ELSE RETURN FALSE . 
; 639 re END a 
> 640 77 ELSE BEGIN fo ; 
3; 641 778 IF CHSRCHAR(PTR = NEWMSGFLAG(.MSG_ADR)) EQL ‘*' ' If ‘'new’’ flag : 
: oe tha 4 THEN BEG ; 
; 64 780 4 CHSWCHAR(* *,.PTR); ! Clear text flag : 


MAILSMSGSUBS 
04-000 


DRESSES 
OOONOUNSE 


000000006 00 


; Routine Size: 


- 
. 


27 


651 


MAIL MESSAGE SUBROUTINES 


781 4 MOD IF rep = 1; 
7 ¢ 4 RETURN TRUE 
7 6 END 
784 ELSE 
785 RETURN FALSE 
7 $ END; 
78 END; 
oO F88 
4C 49 41 4D 00398 
003c 00000 
5E co ae 43 BR Ons 
44 00000000G 00 €9 00006 
50 00000000G 00 D0 0000D 
61 OA AO & 00014 
54 47 AO 9E 00018 
30 30=—AG 01 BA bt 
OA AO 01 = ose 
51 08 <A& 9A 00024 
50 00000000G 00 00 00028 
00 09 3=AG 51 2D 0002F 
60 00039 
OC 12 QO03A 
08 A4 04 90 0003C 
00 BB sAF 04 2C 00040 
09 =AG 00046 
00000000G 00 00 FB 00048 
4 11 Q0004F 
50 00000000" 00 00 00051 
51 60 9A 00058 
50 01 A140 9E 00058 
51 60 9A BR088 
50 51 CO 0006 
2A 60 91 00066 
3 is 44404 
60 20 90 00068 
00000000" 00 01 00 ie 13 
50 01 00 0007 
04 88508 
50 D4 00079 
04 00078 
124 bytes, Routine Base: $CODE$ + 039C 
0788 1 


1$: 
2$: 


3$: 
4$: 


18- As -1984 01:0 
14-Sep aah 9}; 74 


2:28 


' Return not ‘'new 


VAX-11 Bliss-32 V4.0-7 


3 
\MAIL\ 


rt tt ae Save R2,R3,R4,R5 


MAILSGL FLAGS, 2$ 
MAILS$L_CURMSG, RO 


10(RO)> 4$ 

71(RO), R4 

#1, 48(R4) 

#1. 10(RO) 

B(R4), RI 

MAIL$SD_NEWMAIL+4 

R1, 9(RZ), #0, maiusso _NEWMAIL, (RO) 
1$ 

#4, B(R4) 


#4, P.AAE, #0, #39, 9(R4) 


#0, MAILSUPDATE_1_MSG 
MSG_ADR, RO 

(ROT, R 

(R1SCROJ, PTR 

PTR), RI 

1, PTR 
PTR), #42 
32, (PTR) 


» MODIFIED 
#1, RO 


RO 


1 
( 
R 
( 
4 
a 
3 
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! Set modified flag 
i Return record is new 
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+ ROUTINE MAILSDELETE_MSG = 
FUNCTIONAL DESCRIPTION: 


buffer and, ultimately, from the message f 
i INPUTS: 


' 
' 
' 
' 
; 
MSG_ADR = Address of first record in current message. 
' 


This routine is called to delete the current message from the message 


Size of text left 

Move from text pointer 
Move to text pointer 
Size of text moving 


Rewind the message 

Set modified flag 

Find end of message 

Compute text left after mag 


Get address to move from 
G * address to move to 


Compute max that can be moved 
Move text 

Compute new to pointer 
Compute new from pointer 
Compute amount left now 


Continue until all moved 


i OUTPUTS: 
Current message removed from the message buffer. 
BEGIN 
LOCAL 
TEXT_LEFT, 
FROM-PTR, i 
TO_PTR i 
movE_Siz; i 
IF _ERR(MA IL SREWIND xfs Q; neTuRM - STATUS); ' 
IF “NOT MATLSGL_F MAIF V 
THEN RET URN “faite tNOTREABING. 
MODIFIED = 
WHILE RAIL SGET _MSG() DO 1; i 
TEXT_LEFT = ( MSG _BUF ADR, + .MSG_BUF_SIZ) - 
MAICSL_MSG_RADR = RECSIZ_SIZ); 
FROM_PTR = SMAILSL _MSG *RRDR = RECSIZ_SIZ; 
TO_PTR = .MSG_ADR; i ¢ 
BEGIN 
MOVE SIZ = MIN(.TEXT_LEFT,65535); ' 
CHSMOVE(.MOVE_SIZ,.FROM_PTR,.TO_PTR); | 
TO PTR = .TO PTR + .MOVE S12: i 
FROM_PTR = .FROM_PTR + .MOVE SIZ; i 
Text “LEFT = .TEXT_LEFT = .MOVE_SIZ; i 
UNTIL .TEXT_LEFT EQL 0; 
MSG_BUF_SIZ = MSG _BUF_S 


MAILSGL_FLAGSCMAIF_V_READ FL] = 0; 
IF _.MSG_ADR LSSU ( (MSG _BUF ADR” + .MSG_BUF_SIZ) ! 


MAILSREWIND_MSG() : 


ELSE 
MSG_ADR = MAIL$L_MSG_STS = 0; : 
73 STS$R_SUCCESS 


Com 
ARIE SL. “MSG. RADR = RECSIZ_SIZ) - 


ute a » oe of text 
om G_ADR) 
If not past end of buffer 
Rewind new current message 
Else, end of file 
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; Routine Size: 
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oouw 


5 


VMNOOVO MUU WNY OWI AOO 


o 
nm 


Routine Base: 


OoFrPOooomMmM AVWONOO NODMNCOOCOCOFrFa"SO COO —™n 


3 


96 
007E8022 F 


1 

00000000' 00 
00000000" 9° 
00000000° 98 
9 

01 Ad 
FF Ag 
00000000" 00 
6E 
56 
50 

05 

FFFF 86 oaGF 
50 
58 
58 
58 
58 

DD 

59 

00000000" 00 
01 Ad 

40 oF 
00000000" 00 
‘i 

0 

00 

OC 

00000000' 00 
00000000° 8 


1$- s3 1984 
14- ~8ep-1986 


OFFC 00000 


oma 
ow 


FOL HOM | —$ SPMOWNINOOWON NW OOOMMVUOOOCO@WoOroof 


o 
bad 


DOO SY YY OOOO NII INI NOOO AMINE & EWI | | — OOOO 
~“ 
bad 


O99 9 TF AMWOONO—-NMOOONVIWwW-VTIToVCC OOO CCV IOmMm~sIvVIoOUOMmM 
DOMOE FS VNODOO$ 9 DOVIIM DA FS SF NOOOVIMA LO YSPUMIOMey> 


SCODES + 0418 


72:28:38 Dts 


— 
bed 
- 


wr 
PM 


= 
ad 


uw 
bad 


Bliss-32 V 
MAILSDEL 
ayer R10,R11 


SP 
+0. MAIL $REWIND _MSG 
STATUS, 


8 $GL_FLAGS, 2$ 
TBS90888 RO 
a, MODIFIED 

#0, MAILSGET_MSG 


R 
MSG_BUF ADR. R10 
MS =Burs 12. RO 


MAILS _MSG_RADR, R9 
1(RO), TEXT_LEFT 
TR 


#65535, RO 
RO, MOVE_ 
w51Z, (FROM_PTR), (TO_PTR) 
“SIZ, TR 
MOVE-SIZ, 
512, 
P 
F 


#0, MAILSREWIND_MSG 
MAILSL_MSG_STS 
MSG_ADR 


<z 
= 


-11 742 
KSVMSMASTER: CMAIL. SREIMSGSUBS. B32. 79° 
TE_MSG, Save R2,R3,R4,R5,R6,R7,R8,-; 


—* ss a 


MM 


ooo OOCCoCOoCOoOO 
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eee 


9 
esa iment poate cs £78 G-Sen-1984 94:08 oe NI dimehASERSCMAIC cReaMsGsuBS.03264 9° «195 


vol=b08 


POUT IN TELL_CVTFILE (DESC) = 


1 

1 

1 FUNCTIONAL DESCRIPTION: 

i ! Signal that a message file is being converted to an ISAM file 
1 

1 


SIGNAL (MAILS_CVTFILE,2,MAILSQ_RD_DESC, .DESC); 


WAS SOLE 
Oooo 

= 
Wr 


0000 00000 FELL Cute The 


«WORD Save nothing ; 0841 
000 PUSHL DE + 084 
00000086" a5 9005 PUSHAB NAILSQ_RD_DESC : 
OO07EBE93 = BF » 0900p PUSHL #8306323 : 
000000006 00 04 FB 00015 CALLS #4, LIBSSIGNAL : 


; Routine Size: 27 bytes, Routine Base: S$CODES + 0404 


nN 9 
MAILSMSGSUBS MAIL MESSAGE SUBROUTINES 16-Sep-1984 01:08:07 VAX-11 Bliss-32 V4.0-742 Page 27 
v0G= 1er8ep= 138 93:03:58 DISKSVMGMASTERSEMAIL, SREIMSGSUBS 83209" (155 
; aR $3 ! GLOBAL ROUTINE MAILSCLOSE_FILE : NOVALUE = 
; ri 3 ! } FUNCTIONAL DESCRIPTION: | 
; 719 $2 1! This routine closes the current message file. If any messages were 
: 720 4 1! deleted, all the un-deleted messages are first copied, cont guously, 
; 721 $2? 1! to the message file, thus truncating the file. The message buffer 
; £ ¢ 28 1! is then deallocated. 
Ye. 0857 1! 
3 726 0858 1 ! INPUTS: 
: 725 859 1 
; ff § 569 1: MSG_BUF_ASIZ = Size of allocated message buffer. | 
3 £ eo) 3 MSG_BUF_LADR = Starting address of message buffer. 
; : 9a) : } MSG_BUF_SIZ = Size of messages in message buffer. 
3; 30 0864 1 ! OUTPUTS: 
3 7) Seer 1! 
Pe § 508 7! Messages copied to message file, message file truncated and closed, 
5 ie}, 984 : } message buffer deallocated, message file context initialized. 
3 735 0869 1! ALL failures are signalled. 
; 736 0870 1 !-- 
3 for 0871 § BEGIN 
; 738 th LOCAL 
: 739 087 PTR, ! Message buffer pointer 
; 740 0874 $12 ! Message buffer size 
: 741 0875 STATUS; ' Routine status 
; 74 0876 é | 
; 74 0877 ! If no file open, just return 
> 744 0878 : 
3 2 sth IF .RD_FABCFABSW_IFI] EQL 0 THEN RETURN; 
3 «6747 0881 IF .MAILSGL_FLAGSCMAIF_V_ISAM] 
: 748 088 THEN BEGIN 
3 749 088 IF NOT .MAILSL_USRSYSBUFCVMD_V_NOAUTOPURGE) 
; 750 0884 THEN MAILSEMPTY_WASTEBASRET(); 
; 751 0885 MAILSDESELECT_MSGS(J; 
3 P36 0886 END 
: gp 0887 ELSE BEGIN 
3; 754 0888 ; P 
3 O93 0889 ! If there are messages left, rewind the message file and copy the 
; 238 baat messages to it. If none left, mark the file for deletion. 
; 758 0 3 IF .MODIFIED THEN 
; 759 089 IF .MSG_BUF_SIZ NEQ 0 ! If text left 
; 760 pee 4 THEN “BEGIN ; 
; 761 895 4 SDCLEXH(DESBLK = EXITBLOCK); ! Re-declare if interrupted 
; 166 0896 4 SWAIT(RAB = RD_RAB); ! Wait tor all quiet 
: 76 0897 4 STATUS = SREWIND(RAB = RD_RAB); 
: 764 0898 4 PTR = .MSG_BUF_ADR; 
3; 765 0899 4 SIZ = .MSG_BUF_SI7; 
3; 766 900 4 WHILE .SIZ°~GTR'O AND .STATUS 
: 767 901 DO BEGIN 
: 768 90 RD_RAB Rast ery = .PTR + RECSIZ_SI2Z; 
; 769 90 RD_RABCRABSW_RSZ] = .RECSIZ(.PTR); 
; 770 0904 é SIZ = .SIZ =". RECSIZ(.PTR)- RECSI2_SI2; 
; 771 0905 PTR = .PTR + .RECSIZ(.PTR)* RECSIZ_SIZ; 


a - . 
| 
| 
| 


MAILSMSGSUBS | MAIL MESSAGE SUBROUTINES 18-395-1986 01:0 VAX=11 BLiss-32_V4.0-742 
Y04+000 Pr19Be $2:48:28  DISKSVMEMASTERSCMAIL .sRCIMSGSUBS 832047" (135 


14-Sep-1984 
: 77 906 5 STATUS = SPUT(RAB = RD_RAB,ERR=UTILSREPORT_IO_ERROR); | 
eee 9 4 END; 
: 77% 908 4 END | 
: 775 90 ELSE | 
ae. 910 FABCFABSV_DLT] = ' Set to delete 
; 77 o9i1 LIBSFREE RUA CASG _BUF _ASIZ,MSG ‘Bur ADR); i Deallocate buffer 
: 77 3i¢ END; | 
: 77 91 
3 ree at} Close the message file 
: 78 0916 MAILSUP PRIV(1°$B1TPOSITION(PRVSV. SYSPRV),0); ' Enable system priv 
: 78 P 091 IF _ERR(SCLO (FAB = A FAB):, i Close the file 
:; 7 318 STGHAL TuS)); ! possibly deleting it 
: 785 091 MAILSDOWN_P MYOIS. 
; 786 09 9 SCANEXH(DESBLK =" EXITBLOCK); ! Cancel exit handler | 
3 ss 88 § } Re-initialize all the message file context 
: 790 9924 MAILSCLR_DIR_FLAG(); ‘Clear directory display flags 
: 791 0925 2 MODIFIED™= 03 
; 79 09 6 MSG_BUF_ASIZ = 0; 
: 79 09 MSG"BUF SIZ = 0; 
: 79% 0928 2 MSG-BUF-ADR = 0: 
: 795 0929 S"ADR= 0; 
: 796 0930 2 MA:CSL_MSG_NUM = 0; 
: 797 0931 2 MAIL°WIMSG_RSIZ = 0; 
: 798 093¢ MAILSL_MSG_RADR = 0; 
: 799 0933 2 MAILSL-MSG-STS = MAIL$_NOTREADIN; 
; 800 0934 2 MAILSGC_FLAGSCMAIF_V_ISAM] = 0; | 
: 801 0935 2 MAILSGL_FLAGSCMAIF-V-FILOPN] = 0; 
: 80 0936 2 MAILSGL-FLAGSCMAIF—V-DFMSG) = 0; 
; 80 0937 1 END; | 
| 
.EXTRN SYSSDCLEXH, SYSSWAIT 
TEXTRN SYSS$REWIND, SYSS$PUT 
-EXTRN SYSS$CLOSE, SYSSCANEXH 
OOFC 00000 .ENTRY MAILSCLOSE_FILE, Save R2,R3,R4,R5,R6,R7 : 0849 
57 000000006 00 9€E 00002 MOVAB MAILSGL FLAGS, R7 : 
56 00000000' 00 9€ 00009 MOVAB MAILSL ASG NUM ; 
55 00000000" 09 9¢ 0010 MOVAB MSG BUF SIZ, R5 : 
FF66 «6 C5 iB 01 TSTW  RD_FAB+2 : 0879 | 
61 1 1B BNEG -1$ : 
04 0001D RET ; 
67 €9 OOOIE 18: BLBC MAILSGL_FLAGS 38 > 0881 
35 000000006 00 D9 0021 MOVL MAILSL OSRSYSBUF , : 0883 
7 1F 02 £0 00028 BBS #2, 31TR : 
000000006 09 0 FB 000eD CALLS #0, MALL LSEMPTY_WASTEBASKET > 0884 
000000006 0 re 00 2$: CALLS #0, MAIL peo 2 “MSGS > 0885 
4 11 00038 BRB ie : 0881 
62 FEE8 C5 €9 00030 38: BLBC FIED F 089¢ 
$3 D3 04 TSTL MSG. _BUF Pei : 089 
: 1 4 BEQL © 5$ ~ ; 
FEDS ¢ 9F 00046 PUSHAB EXITBLOCK : 0895 | 
000000006 00 1 FB O004A CALLS #1, SYSSOCLEXH : | 
| 
| 
| 
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MAILSMSGSUBS § MAIL MESSAGE SUBROUTINES 1-Se -1984 01:08:07 VAX=11 Bliss-32_V4.0-742 Page 9 MA’ 
v04+000 107330- 1382 908 :88 DISKSVMSMASTER: CMAIL.SRCJMSGSUBS.832; 1° a3} vO! 
B4 AS OF 00051 PUSHAB RD_RAB ; 0896 | : 
000000006 00 01 FB 0094 CALLS #17; SYSSWAIT : | ; 
B46 AS «OOF 00058 PUSHAB RD_RAB ; 0897 : 
000000006 99 01 FB 9055 CALLS #1, SYSSREWIND : : 
FC AS DO 0006 MOVL § MSG_BUF_ADR, PTR ; 0898 : 
52 5 00 00069 MOVL  MSG-BUF-SIZ, SIZ ; 0899 : 
2 0 O06¢ 4$: TSTL = $12 ; 0900. : 
4 15 00 § BLEQ 6$ : : 
31 9 00 LBC. STATUS, 6$ : : 
pc AS 01 A3 9E 0007 OVAB 1(R3), RD_RAB+40 ; 090 : 
5] 9A 00078 MOVZBL (PTR), R1 : 090 : 
D6 A 1 89 0078 OVW § R1, RD_RAB+34 : : 
54 5 i. 7F SUBL3. RI, SIZ, R4 3 0904 : 
5 FF AG SE 00083 MOVAB =-1(R4), SIZ : : 
5 o1 A143 9E 00087 MOVAB 1(R1)CPTRI, PTR ; 0905 : 
000000006 00 9F 0008 PUSHAB UTILSREPORT_I0_ERROR > 0906 : 
B4 AS 9F 0009 PUSHAB RD_RAB : : 
000000006 00 02 FB 9009 CALLS #27 SYS$PUT ; : 
CE 11 0009C BRB 4$ ; 0900 : 
FF69 C5 80 8F 88 OO09E 5$ BISB2 #128, RD_FAB+S : 0910 : 
FC AS 9F OOOA4 6$ PUSHAB MSG_BUF_ADR ; 0911 : 
F8 AS 9F O00A7 PUSHAB MSG_BUF-ASIZ ; | : 
000000006 00 02 FB QOOAA CALLS #2, LIBSFREE_VM ; : 
7E D4 000B1 7$: CLRL = = (SP) ; 0916) : 
10000000 8F DD 000B3 PUSHL 4268435456 ; : 
000000006 00 02 FB 00089 CALLS #2, MAILSUP_PRIV : ; 
FF64 C5 9F 000CO PUSHAB RD_FAB ; 0918 | ; 
000000006 00 01 FB 000C4 CALLS #1; SYSSCLOSE ; | : 
09 50 €8 000CB BLBS STATUS, 8$ : : 
50 DD OOOCE PUSHL ATUS ; : 
000000006 00 01 FB 00000 CALLS #1, LIBSSIGNAL ; : 
000000006 00 00 FB 000D7 8$: CALLS #0, MAILSDOWN_PRIV : 0919 : 
FED8 C5 9F OOODE PUSHAB EX{TBLOCK : 0920 : 
000000006 00 01 FB 000E2 CALLS #1, SYSSCANEXH : : 
000000006 00 00 FB O00E9 CALLS #0, MAILSCLR_DIR_FLAG ; 0924 : 
FEES C5 D4 OO0FO CLRL © MODIFIED : 0925 : 
65 7C O00F4 CLRQ MSG_BUF_SI ; 0927 : 
F8 AS 7C 000F6 CLRQ  MSG~BUF-ASIZ : 0926 ; 
66 D4 000F9 CLRL «=» MAIC3L_ASG_ : 0930 ; 
04 A6 B4 OOOFB CLRW MAILSWIMSG-RSIZ : 0931 ; 
08 A6 D4 OOOFE CLRL MAILSL MSG-RADR : 093 ; 
FC AG OO7E8022 8F DO 00101 MOVL #8290338, MAILSL_MSG_STS : 093 ; 
67 1801 8F AA 00109 BICW2 #6145, MAILSGL_FCAGS ; 0936 ; 
04 0010E RET ; 0937 | ; 
; Routine Size: 271 bytes, Routine Base: $CODES + O4EF | ; 


ee : c— 
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3 805 938 i ROUTINE OPEN_MAIL_FILE (SIGNAL_FLAG,RE_OPEN) = : 
; 80 940 1 | FUNCTIONAL DESCRIPTION: | : 
; 808 941 1! : 
; ss a ! This routine opens the mail file | : 
; #811 0944 1 ! Assumes RD_FAB initialized to open the file ; 
; Bie 945 1 I< : 
3; 81 94 BEGIN ; 
; 8146 094 : 
; 815 0948 LOCAL ; 
; 816 09% DESC : VECTORC2,LONG), : 
; 81 950 STATUS; : 
; 818 0951 ; 
; 819 0938 MAILSGL FLAGSCHALF _V ISAM) = 0; ; 
; 820 095 DESCCOJ~= DESCL1) = 0; : 
: 821 0954 2 STATUS = SOPEN(FAB = RD_FAB); | ; 
; Bee 0955 2 CHSMOVE(DSCSC_S BLN, UTICSGETFILENAME(RD_FAB) ,DESC); ; 
; 82 0996 STRSCOPY_DX(RB_ESNAM_DESC,DESC); | : 
> B24 095 IF NOT .STATUS : 
: 825 0958 THEN BEGIN : 
: 826 0959 IF .STATUS EQL RMS$_SHR 3 
3; 827 0960 4 THEN BEGIN : 
; 828 0961 4 RD_FABCFABSB_FAC] = FABSM_GET OR FABSM_PUT OR FABSM_TRN; | ; 
; 829 096¢ 4 RD-FABLFABSL_FOP] = FABSM_TEF OR FABSM~SQO; ; 
; 830 0963 4 RD_FABLFABSB_ = 0; : 
3; 831 0964 4 RD-RABCRABSB_ = RABSC_SEQ; : 
; 832 0965 4 D-RABCRABSL-ROP) = RABSM_RAH OR RABSM_WBH OR RABSM_TPT; : 
3; 83 09 4 IF"NOT .RE_O | : 
: 834 0967 4 THEN RETURN TRUE; : 
3; 835 P 0968 4 IF_ERR(SOPEN(FAB=RD_FAB);, : 
; 836 P0969 4 IF .SIGNAL_FLA 3 
; 837 P0970 4 THEN UTILSREPORT_IO_ERROR(RD_FAB); : 
; 838 0971 4 RETURN .STATUS); “ 
; 839 0972 4 END : 
3; 849 0973 3 ELSE RETURN UTILSREPORT_IO_ERROR(RD_FAB); ; 
3 841 0974 2 END; 3 
: 84 0975 2 IF .RD_FABLFABSB_ORG] EQL FABSC_IDX ; 
3 84 0976 THEN BEGIN : : 
3 844 0977 MAILSGL_FLAGSCMAIF_V_ISAM) = 1; 'Flag ISAM file : 
3 845 097 IF .MAICS$L_RECBUF FOC 0 ; 
3 846 P 0979 THEN IF_ERR(LIBSGET_VM(ZREF (MFR_C_MAXLEN) ,MAILSL_RECBUF);, : 
: 847 P 0980 ~SIGNAL_FLAG THEN SIGNAL(.STATUS); : 
: B68 0981 RETURN .STATUS); : 
3; 850 098 RD_RABCRABSL_UBF) = .MAILSL_RECBUF; : 
; 851 0984 ENB; | : 
3 B26 985 : 
; 85 Pp 986 IF ERR(SCONNECT(RAB=RD_RAB);, ; 
: 854 P 098 IF .SIGNAL_FL : 
3; 855 P 098 THEN UTILSREPORT_1IO_ERROR(RD_RAB); : 
3 896 P 098 SCLOSE(FAB=RD_FAB); : 
; S20 330 RETURN .STATUS); : 
3; 859 998 IF .MAILSGL_FLAGSCMAIF_V_ISAM] : 
: 860 0993 THEN MATLEISAM_INIT(T; | : 


} 
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3 995 RETURN TRUE 
; £0 $338 f END; 


-EXTRN SYSSOPEN, SYSSCONNECT 
OFFC 00000 OPEN_MAIL_FILE: 
. WORD 


| 
Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 > 0938 | 
5B 000000006 99 9E 0000 MOVAB SYSSOPEN, R11 : 
$A 000000006 9€ 0000 MOVAB MAILSGL FLAGS, R10 3 | 
23 4444 88 4 3 Oot OVAB MAILSL_RECBUF, RO : 
8 000000006 E 0001 OVAB UTILSREPORT_IO_ERROR, R8 : | 
57 00000000° 00 H OO1 NOVAB RD_FAB, R7 : | 
5E 0c 00 SUBL2 #12, SP ; 
6A 01 8A 00028 BICB2 #1, MAILSGL_FLAGS > 095 
04 AE C 00028 CLRQ. DESC + 095 
57? DD 0002E PUSHL R + 0954 
68 01 FB 000 9 CALLS #1, SYSSOPEN : 
56 0 pO 0003 MOVL RO. STATUS : 
57 DD 00036 PUSHL R + 0955 
000000006 00 01 FB 00038 CALLS #1, UTILSGETFILENAME : 
04 AE 60 08 28 0003F MOVC3 #8. (RO), DESC : 
04 AE 9F 00044 PUSHAB DESC > 0956 
98 A? 9F 00047 PUSHAB RD_ESNAM_DESC : 
000000006 00 02 FB OO04A CALLS #2, STRSTOPY_DXx 3 
41 56 £8 00051 BLBS STATUS, : 0957. 
00018684 8F 56 D1 00054 CMPL = STATUS. #100020 : 0959 
32 12 00058 BNEO : 
04 A7 10000040 8F 00 0005D MOVL #268435520, RD_FAB+4 + 0962 
16 AT 13 BO 00065 MOVW #19, RD_FAB+22 : 0961 
6E A? 94 00069 CLRB —sRD_RAB+30 > 0964 
54 AT 0602 8F 3c 0006C MOVZ2WL #1538, RD_RAB+4 : 0965 
03 08 AC ES 09072 BLBS RE_OPEN, T$ + 0966 
0085 31 00076 BRW : 
57 DD 00079 1$ PUSHL 7 : 0971 
68 01 FB 0007B CALLS #1, SYSSOPEN : 
52 50 DO 0007E MOVL RO. STATUS : 
11 52 £8 00081 BLBS STATUS, 3$ : 
68 04 AC €E9 00084 LBC SIGNAL’ FLAG, 7$ : 
57 DD 00088 PUSHL 7 : 
68 01 FB OO08A CALLS #1, UTILSREPORT_I0_ERROR : | 
61 11 0008D BRB 7$ : 
37 DD OOOBF 2% PUSHL 7 : 0973 | 
68 1 FB 00091 CALLS #1, UTILSREPORT_IO_ERROR : 
04 90094 RET : | 
20 1D AZ 91 00095 3$ CMPB ss RD_FAB+29, #32 : 0975 
32 12 00099 BNEQ S$ | 
6A 01 88 0098 BISB2 #1, MAILS$GL_FLAGS : 0977 | 
69 D5 0009 TSTL  MAILSL_RECBOF ; 0978 | 
¢ 12 OOOA BNEG  4$ : 
9 DD OOOA PUSHL R9 > 0981 | 
04 AE 0800 8F 3c OOA4 MOVZWL #2048, 4(SP) : | 
000000006 0 * 6 OS fe 000 #2> CIBSGET_vM ; | 
29 ‘ 09 § RO STATUS 3 
52 £8 000 STATUS, 4$ ; | 
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32 04 s £9 OBA BLBC $1GNAL FLAG, 7$ : | 
000000006 00 af Fe o¢4 CALLS a. LIBSSIGNAL : | 
é | 
74 A7 69 +4 OC9 4$: MOVL MAILSL_RECBUF, RD_RAB+36 g 9383 | 
50 A? 9F O00CD 5$: PUSHAB RD _RAB™ ; 0990. 
000000006 Q 1 Ff 909 CALLS SYS$CONNECT : | 
9 DO 0000 MOVL 4 TUS : 
1 E8 OUODA BLBS STAT os. $ : 
06 94 AC 9 0000 BLBC = SIGNAL_FLAG, 6$ ; 
0 A? 9F O00E1 PUSHAB RD_RAB~ : | 
ae o4 FB Q0E4 CALLS #17 UTILSREPORT_IO_ERROR : 
7 DD O000E7 68 PUSHL R7- : | 
000000006 99 01 FB 00E9 CALLS #1, SYSSCLOSE : 
0 52 D 900F9 7$ MOVL STATUS, RO : 
04 O00F RET ; 
07 6A E9 O00F4 8S BLBC MAILSGL FLAGS, 9$ + 099 
000000006 00 0 FB O000F7 CALLS MAICSISAM. INIT 3; 099 
50 01 DO OOOFE 9S: MOVL a: RO + 0995 
04 00101 RET + 0996 


; Routine Size: 258 bytes, Routine Base: S$CODES + OSFE 


7 
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; 865 997 GLOBAL ROUTINE MAILSRENAME SUCCESS (OLD_SPEC,NEW_SPEC) = | 
: Be? 1 i FUNCTIONAL DESCRIPTION: | 
3 r¢ 000 1! 
: : 5 i 1 } This routine is called by LIBSRENAME_FILE on a successful RENAME 
871 0§ > BEGIN | 
: 87 1005 2 MAP 
i 74 190 OLD_SPEC : REF SBBLOCK; 
; 876 1008 2 SIGNAL(MAILS$_RENAMED,2,.OLD_SPEC,.NeW_SPEC); | 
s 687 1009 
: 878 1010 2 RETURN TRUE | 
; 879 1011 1 END; | 
| 


0000 00000 «ENTRY MAILSRENAME_SUCCESS, Save nothing ; 0997 
7E 04 AC 7D 00002 MOVQ OLD_SPEC, -TSP) ; 1008 
02 9D 00006 PUSHL 3 
007E12A1 8F DD 00008 PUSHL #8262305 3 
00000000G 00 04 FB aie 3 CALLS #4, LIBSSIGNAL : 
50 01 00 0001 MOVL #1, RO 3: 1010 
04 00018 RET 3; 1011 


; Routine Size: 25 bytes, Routine Base: $CODE$ + 0700 
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S3Se5 
—OO° MPwr— 
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; Routine Size: 


4 2 8 a st a te 
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52 bytes, 


1 
1 
1 
1 
1 
1 
MAP 
SET 
1,2] : 
TES; 
1 
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GLOBAL ROUTINE MAILSRENAME_ERROR (OLD_SPEC,NEW_SPEC,RMSSTS,RMSSTV,ERROR_SOURCE) = 
FUNCTIONAL DESCRIPTION: 
Error routine called by LIBSRENAME_FILE on an error 


BEGIN 


RMSSTS 
RMSSTV : 


: REF VECTOR(,LONG), 
REF VECTORL,LONG)J; 


a sERROR_SOURCE FROM 0 TO 2 


{OJ : ‘Error searching for old_file 
; IF sess Tai C2 7. RMSS$_FNF 
THEN RETURN TRUE 


ELSE 
SIGNAL (MAILS. SEARCHFAIL, 1,00 DSP 
STStOd, “RMSSTVLOJ); 


C arsing new 


SIGNAL (MAILS_ SEARCHFAIL,1,.NEW_ SPEC, RMSSTSE OI; -R sSTVC0N): 


A gay TRUE 


0000 00000 .ENTRY MAILSRENAME ERROR, Save nothing 
02 00 146 AC CF 00002 CASEL ERROR_SOURCE, #0, #2 
0011 0011 0006 00007 1$ WORD $ =1$7- 
$-1$° 
10 BC DD 0000D 28 PUSHL @RMSSTV 
0C BC DD 00010 PUSHL a@RMSSTS 
04 AC DD 90015 PUSHL OLD_SPEC 
09 11 00016 BRB 
10 BC DD 00018 3$ PUSHL @RMSSTV 
0C BC DD 00018 PUSHL @RMSSTS 
08 AC dD OOO1E PUSHL NEW_SPEC 
01 DD 00021 4$ PUSHL 
007E123A 8F DD 900 3 PUSHL #8262202 
000000006 00 05 FB 00029 CALLS #5, LIBSSIGNAL 
50 01 00 00 9 MOVL #1. RO 
04 000 RET 


Routine Base: $CODES + 0719 


9°43) 


MA] 
Vv0é 
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MAIC$Q_MSG_FILE = Message file name desc. 
MAILSL_MSG_NUM = Current message number. 


ALL failures are signalled as well as returned. 


BEGIN 
MAP 


908 833 +> pe ROUTINE MAILSOPEN_FILE(FILE_DESC) = 
1} 8 FUNCTIONAL DESCRIPTION: 
i 8 i This routine opens the named message file and reads it into the 
14 4 ' message buffer. 
15 04 : 
1 04 ' INPUTS: 
1 04 : 
18 : FILE _DESC = Des criptor of file to open. if 0, default mail file opened 
2 MAILST_MAILDEF = User's default device/directory string 
; i QUTPUTS: 
: i MSG_BUF_ASIZ = Size of allocated message buffer. 
$e : MSG_BUF_SIZ = Size of text in message buffer. 
5 ' MSG_BUF_ADR = Address of text in message buffer. 
$$ MSG_ADR™ = Address of first new message in buffer. 
28 : 
$6 i 
0 
He 
3 
34 
3 


uw 


FILE_DESC : REF SBBLOCK; 


WODODDODOODOODODOODDOODODODODDODODOODOSOO0O 


ONS 


LOCAL 


DESC : VECTORC2,LONG) 
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939 DESC_1 : VECT ToRt> LONG), 

940 NEW FORMAT, ' tile is ISAM 
941 R ' Previous record address 
94 SPACE_LEFT, i Space left in buffer 
ot STATUS; ' Routine status 
945 BUF EQL 0 

946 Pp TREN’ IF TP ERR R(LIBSGET VM (ZREF (NAMSC MAXRSS), RD_RSNAM_BUF);, 
947 77 RETURN SIGNAL(.STATUS)); 

948 78 IF BUF EQL 4 

949 P 1079 “THEN IF TPLERR CL 1B8GE1 VM (ZREF (NAMSC MAXRSS) ,RD_ ESNAM_BUF );, 
320 44 RETURN SIGNAL(.STATUSS); 

326 Be : Close any currently open file and zero all context. 

954 84 2 MAILSCLOSE_FILE(); 

955 85 ! 

328 Hy Initialize RMS data structures 

958 P 1088 2 $FAB_ INIT (FAB RD_FAB 

959 P 1089 S=.FILE -DESCEDSC$W_LENGTH] 

960 P 1090 EMAC FILES DESCEDSCS$A~POINTERS 

961 P 1091 DNS = .MATL Q_MAILDEFLDSC$u_LENGTH] 

36¢ P % DNA = .MAILSQ-MAILDEFCOSCSA~POINTERS, 

96 P 109 CTX = MAIL$_OPENIN 

964 P 1094 FAC=(DEL,GET,PUT,UPD), 

965 P 1095 SHR=(DEL,GET,PUT,UPD), 


10 

MAILSMSGSUBS § MAIL MESSAGE SUBROUTINES 18-Se -1984 01:08:07 VAX=11 Bliss-32 V4.0-742 Page 36) MA! 
Y0Lt008 12780871383 9%} 8 Hh DISKSVMSMASTER: CMAIL. SRCJMSGSUBS.B32; 1 79 (16), vO 
: 366 ' i NAM=RD_NAM) | : 
; 968 1098 ¢ RD_FABLFABSV_DFW) = .MAILSB_DFW; | s | 
: 3% B 1100 ¢ SNAM_INIT(NAMSRD NAM | Zz 
: 971 P 1101 RS RONAN MA otAiRss | : | 
cea Mach a 
: 97% 1104 ESAS RD, ESNAM. BUF); | 3 | 
: 975 1105 : 
; 976 4 1188 SRAB_INIT (RAB=RD RAB, e 
: gre P1109 CTASRATLS _OPENIN, 7 
; 980 1110 USZ=MFR_C_MAXLEN) ; 3] 
; 981 1111 3 | 
: 98¢ 1118 IF .FILE_DESCCDSCSW_LENGTH] EQL 0 3 | 
: 98 111 OR CASEQL(. FILE Se LENG TH], FILE DESCCDSCSA POINTER R), : | 
; 4984 1114 NAMECDSCS$W_LENGTH], .MAILSQ_MSGNAME DStSA_ POINTER],0) : 
3 #4 1332 THEN BEGIN | 
: 987 W417 Open the new message file. Call routine to concatenate new msgs together 
; ose 1118 if sequential file. if isam file, always just open. 
: 990 1120 STRSCOPY DX (MAIL$Q_MSG rhibee ,MAIL$Q_MSGNAME); 
: 991 1121 RD_FABLFABSB_FN NS] = MRIL$O ~SGHARE DSC SN. LENGTH): 
; 99¢ 11 g RD-FABLFABSLFNAJ = .MAIL$Q_MSGNAMECDSCSA “POINTER; 
; 99 1 STATUS = OPER NEWE ILE ( d: 
: 994 1124 IF .STATUS EQC RMSS_F ! If file not found 
: 995 1125 THEN BEGIN 
: 996 1126 4 SIGNAL (MAIL$_NOMSGS); ! Signal no messages 
; 997 1197 é RETURN MAILS$_NOMSGS i Return 
: 999 1189 ELSE IF NOT “STAT US 
; 1000 1130 THEN RETURN .STATUS; 
: 1001 1131 MAILSGL NELAGSEMALP wv DPASG) = 
: 1008 1133 ELSE BEGIN 
+ 1004 1134 STRSCOPY -DXCMAILSO _MSG_FILE,.FILE_DESC); 
+ 1005 1135 STATUS ="OPEN MAIL~FILE(1,15; 
; 1006 1136 If Not . . STATUS THER RETURN Status: 
> 1008 1138 2 MAIL$O_MSG ~fmepscsu. LENGTH] = .RD_NAMCNAMSB_NAME): 
: 1009 1139 MAILSO7 “MSG-FNMCDSCSA_POINTER] = .RD_NAMCNAMSC_NAME; 
: 1011 1141 IF NOT .MAILSGL_FLAGSCMAIF_V_ISAM] 'Isam handled differently, thanks 
{1018 114g ¢ [HEN BEGIN 
: HF 13ee Allocate a buffer to read-in the message text 
: 1016 1146 Hf RD FABCFABSL_ALQ) EQL 0 ! Return if file empty | 
; 1918 1148 SIGNAL (RAILS NOMSGS) ju RGLOSE (ABS =RD_FAB); RETURN MAILS NOMSGS) ; | 
> 1019 1149 mSG BUF_AS IZ DF ' Compute size in bytes | 
> 1020 P 1150 F_ERR( L 18s GET “YRTSG BUF st Aye MSG_BUF_ADR);:, 
; 1081 P 1151 SIGNAL (7ST 
> 1022 P 1152 ScrOSE (FAB RD. FAB); | 

| 
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aN 
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4 
R 


On 


RETURN .STATUS); 
Read all the text records from the file into the message buffer 


SPACE_LEFT = .MSG BUF_ASIZ; 

PREV_REC = .MSG BOF_ADR; .PREV_REC = 0; 

RD_RABCRABSL_UBF) =".MSG_BUF_ADR + RECSIZ_SIZ; 
RD-RABLRABSW_USZ) = MIN(;SPACE LEFT = RECSIZ_S1Z,MAXRECSIZ); 
RD-RABLRABSL~CTX) = MAIL$_READERR; 

WHILE (STATUS = $GET(RAB = RD_RAB.ERR=UTILSREPORT_1I0_ERROR)) 
AND (.SPACE_LEFT GTR 0) 


RECSIZ(.RD_RABCRABSL_UBF] - RECSIZ_SIZ) = .RD_RABLRABSW_RSZJ; 
If first new message, save address of message 
if MSGDELIM(.PREV_REC) 
THEN 
-MSG_ADR EQL 0 
N “BEGIN 
MAILSL_MSG_NUM = .MAILSL_MSG_NUM + 1; 
4F  LHORCHARCHEURSGFLASS PREV REC)? EQL ‘*' 
‘ee MSG_ADR = .PREV_REC; 
PREV_REC = .RD_RABCRABSL_RBF] - RECSIZ_SIZ; 
Compute space left and address for next record 
SPACE_LEFT = .SPACE_LEFT = .RD_RABCRABSW 
MSG_BOF_ SIZ = .MSG_BUF_SIZ + .RD_RABCRABSW_R 
RD_RABCRABSL_UBF) = RB _RAB RABSC UBF . ale 
RD RABCRAB$W_USZ) = MINT.SPACE_LEFT - RECSIZ 
IF .STATUS NEQ RMS$_EOF 
THEN BEG 


MAILSCLOSE_FILE(); 
RETURN .STATUS; 


IF 
THE 


If no new messages found, set current message to first montage. Also, if 
this is the new message file, clear the user's new message flag. 


tee eee 


F .MSG_ADR EQL 0 ! If no new messages, 

HEN BEGIN ; 
MSG_ADR = .MSG_BUF_ADR; ! Position to first one 
MAICSL_MSG_NUM™= 1; 


END; 

NOT LEAVE, SEQ 
IF_.MAILSGL_FLAGSCMAIF_V_DFMSGJ 
THEN BEGIN 

.RD_NAMCNAMSB_NAME); 


-RD-NAMLNAMSL NAME 
s -RD_NAMCNAMSB_RSLJ - .RD_NAMCNAM$B_VER); 


IF 
THE 


N 
RDNAMCNAMSL RSA); 


JMSGSUBS .B32;1 


MA MA A - © 
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: 1080 1210 4 MAILSCOPY MSGS(DESC_1,DESC,(MCR_M_NIL OR MCR MALL) TE L CVTFILE); 
; 1081 1211 4 MAILSCLOSE_FILE(); Close the sequential file 
: 1358 1 \§ 4 LIBSAENAME =F ILE (MAIL SQ RO_DESC ‘Rename the old sequential file 
: 108 1213 4 DE SERIATOR (“OLDS 0 0,0 
; 1084 1214 4 MAILSRENAME SUC cess MAILSRENAME_ERROR);: 
: 1085 1215 4 MAILSGET_INPUT(DYN_DESCMAILSGE TMSG(MAIL$_RETCONT)$; 
; 1086 1 1 4 RETURN MAILSOPEN_FILE(. FILE. _DESC); !and Open the isam version 
: 108 121 END; 
: 1088 1218 3 xF1 
; 1089 1219 END; ‘Sequential mail file 
; 1090 1220 MAILSGL_FLAGSCMAIF_V_FILOPN) = 1; 'Flag file open for business 
: 1091 1221 2 RETURN TRUE 
: 1092 1202 1 END; 
44 4C GF 2E€ 0074D P.AAG: .ASCIIT \.OLD\ 
00751 “BLKB 3 
00000004 00754 P.AAF: LONG 4 
00000000' 00758 “ADDRESS P.AAG 
SRMS_PTR= RD_FAB 
$RMS_PTR= RD-NAM 
$RMS_PTR= RD-RAB 
.EXTRN SYSSGET 
OFFC 00000 ENTRY MAILSOPEN, FILE, Save R2,R3,R4,R5,R6,R7,R8,- 
5B 000000006 00 9€ 00002 MOVAB LIBS$SIGNAL, R11 
5a 00000000" 00 9€ 00009 MOVAB MAIL$Q_MSG_FILE, R10 
59 FD7F CF 9E 00010 MOVAB MAILSCCOSE-FILE, R9 
58 00000000" 060 9E 00015 HOVAB SRMS_PTR, RB 
5E 14 C2 0001C SUBL2 #20, SP 
90 A8 D5 OO0IF TSTL  —RD_RSNAM_BUF 
15 12 00022 BNEQ 1$7 
90 AB OF 00024 PUSHAB RD_RSNAM_BUF 
04 AE FF 8F 9A 00027 MOVZBL #255, 4(5P) 
04 AE 99F 0002C PUSHAB 
000000006 00 Q FB O02F CALLS #2, LIBSGET_VM 
1A E9 00036 BLBC STATUS 
94 A8 D5 00039 18: TSTL  RD_ESNAM_BUF 
1B 12 0003C¢ BNEQ 
94 AB OF 0003E PUSHAB D.ESNAM BUF 
04 AE FF BF 9A 9041 MOVZBL #05 4(SP) 
04 AE 9F 00046 PUSHAB 4(SP 
000000006 00 Q FB 0049 CALLS #2. arb SSgr- VM 
06 E8 0005 BLBS 
50 DD 00053 2$ PUSHL STA U 
6B 01 FB 0005 CALLS #1, LIBSSIGNAL 
04 00058 RET 
69 00 FB 0099 3$ CALLS 40, MAILSCL SE_FILE 
0050 =s«BF 00 6E 09 2c b09¢ MOVCS #0, (SP), #0, #80, SRMS_PTR 
68 5003 8F BO 0064 MOVW #204 3, SRS, PTR 
16 ag OF OF F BO 00069 MOVW of SRMS_PTR+22 
18 AS OO7E109A_ BF D6 O06F MOVL 8261 61786, "san PTR+24 
iF AB 2 077 MOVB SRMS_ T 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Ge Ge Ge Se Ge Se Se Se Se Se Be Se 
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| 
28 OA AO AB 9 8 MOVAB RD_NAM $RMS gPTR+40 : | 
5 4 ac 0 MOVL FICE_DESC : 
“ean 4 as D 4 MOVL  4(R6 Shas” R+44 : 
§ AB 000000006 90 0 90089 MOVL MAILSG nate SRMS_PTR+48 ; | 
A a * 1 MOVB  (R6), SRM +58 : 
5 AB 900000006 90 00095 Move WAIL Sa “AAILDEE. RMS -PTRSS3 ; | 
01 05 000000006 F 20 INSV. MAIL $B. DFW #1, RD_FAB+4 + 1098 
00 6E me 2¢ OOA MOVCS #0, (SP) aoe p96. SRMS. PTR + 1104 
a ioe 1 OME te : 
AG OA 90 ABs 06 OOBA L RD _RSNAM~BUF $RMS_PTR+4 : 
AA A 01 ; OOBF MNEGB #1, $RMS-PTR#+10 : | 
AC AB 94 AB D 00¢3 MOVL  RD.ESNAMBUF, $RMS_PTR+12 : 
00 6E “ 00 2¢ o0c8 MOVCS #07 (SP)> #0. #68, S$RMS_PTR + 1110 
50 AB 4401 8F B80 00001 MOVW #17409, $RMS_PTR : 
68 As 007E109A af b0 9907 MOVE #8261786, pSRAs PTRe24 : 
70 «AB 0800 4 BO O00E3 MOVW #204 Sams PTR*32 : 
ates 3 e3 SOE ROVAB AD, FAB, SRAS_PTR*60 ane 
10 1 00085 BEQL 4s ; 
50 F7C2 CF DO O00F 2 MOVL. MAIL$Q_MSGNAME+4, RO + 1114 
00 04 86 66 2D O00F? CMPCS  (R6), 34(R6), #0, MAILSQ_MSGNAME, (RO) ; 1113 
68 12 $0900 BNEQ 6$ : 
F7AE cr a 00102 4$ PUSHAB MAIL$Q_MSGNAME ; 1120 
000000006 00 02 FB 00108 CALLS STRSCOPY : 
34 AB F7A1 CF 90 0010F MOVB aaits $Q_MS SONAR RD_FAB+52 + 1121 
2c AB F79F CF DO 00115 MOVL MAIL$Q~ MSGNAME +4, RD_FAB+44 : 1188 
2 OSB RUE ALLS PRyaHEO LE }s 
00018292 8F 37 pt 09135 cAPL STATUS, #98962 ; 1124 
007E804A 8F DD OO012E PUSHL #8290378 : 1126 
68 QI FB 00134 CALLS #1, LIBSSIGNAL : 
4 11 00137 BRB : 1127 
20 57 £9 0139 5$ BLBC STATUS, 7$ F 1189 
000000006 00 10 88 0013¢ B1SB2 #16, MAILSGL_FLAGS+1 1131 
26 DD 00145 6$ PUSHL  R6 > 1134 
A DD a9143 PUSHL R10 ; 
000000006 00 2 FB 00149 CALLS ae, STRSCOPY_DX : 
1 bb Oo1e2 PUSH Sine 
010F £9 ° i a ; CALLS #3. 0 OPEN tle FILE 
03 3 15¢ 7$ BLBS ST ATO : 1136 
01 i 15F BRW 19$ : 
08 AA A 8 166 8S MOV7BW RD_NAM+59, MAIL$Q_MSG_F ; 1138 
OC AA C AB DO 0016 MOVL RDTNAM+76. MAILSQ"MSG-F NAG : 1139 
03 000000 06.9 5 1 BLBC MATLSGL_FLAGS, 9$~ ; 1141 
10 AB D3 0176 9$ TSTL  RD_FAB+16 ; iad 
1A 12 0017 BNEQ «118 : | 
j 
] 


N 10 
MAILSMSGSUBS § MAIL MESSAGE SUBROUTINES 16-Sep-1984 01:08:07 VAX=11 Bliss-32 V4.0-742 Page 40| 
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007E804A 8F DD 00178 PUSHL #8290378 : 1148 
68 1 FB 60181 CALLS #1, LIBSSIGNAL ; | 
000000006 | PB Oolae CALLS ig SYSSCLOSE we 
38 007E804A SF : p 10$: OVE *BS90378° RO : | 
0094 8 10 AB 09 7800195 11$:  ASHL #9, RD_FAB+16, MSG_BUF_ASIZ > 1149 
0098 CB OF 19¢ PUSHAB MSG_BUF_A > 1153 
0094 C8 99F OOIA PUSHAS MSG-BUF~ASIZ : 
000000006 0 g FB OO1A4 CALLS #2, LIBSGET_VM : 
5 DO 001AB MOVL R : 
1 3 E O1AE LBS § STATUS, 12$ ; 
DD 0018 PUSHL STAT : 
68 Or FB 00183 CALLS #1, LIBS$SIGNAL ; 
8 DD 00186 PUSHL : 
000000006 00 01 FB 001B CALLS #1, SYSSCLOSE ; 
50 52 B0 0018 HOVL STATUS, RO ; 
52 0094 C8 DO a9ic§ 12$:  MOVL §$MSG_BUF_ASIZ, SPACE_LEFT + 1157 
5 0098 ¢8 DO O0IC MOVL § MSG-BUF-ADR, R : 1158 
53 50 00 001CD MOVL RO, PREV_REC : 
63 D4 00100 CLRL PREV_R : 
74 As 01 AO 9 00102 MOVAB 1(RO)> RD_RAB+36 + 1159 
50 FF A2 99E 00107 MOVAB (R25 + 1160 
QOOOOOFF BF 50 01 00108 CMPL =e RO, «#255 F 
04 15 OO1E BLEQ : 
50 FF 8F SA OO1E4 MOVZBL #255, RO : 
70 AB 50 BO OO1E8 13$: MOVW RO. RD _RAB+32 ; 
68 AB OO7E10B2 BF DO OOTEC MOVL #8261870, RD_RAB+24 + 1161 
000000006 00 9F OiF4 14$ PUSHAB UTILSREPORT_TO_ERROR + 1162 
50 AS 9F OOIFA PUSHAB RD_ ; 
000000006 00 : FB OO1FD CALLS #2, SYSSGET : 
57 DO 00204 MOVL RO, STATUS : 
03 5 E8 00207 BLBS STATUS, 15$ : 
0081 31 0020A BRW : 
52 D5 00200 15$:  TSTL § SPACE_LEFT : 1163 
7D 15 O020F BLEQ 18$ : 
54 74 AB 00 00 11 MOVL RD _RAB#36, R4 > 1165 
51 72. AB 3C 00215 MOVZWL RD-RAB+34, R1 ; 
FF AG 51 9¢ 00219 MOVB R17 -1(R4 ; 
50 63 9A 0021D MOVZBL (PREV_REC), RO : 1169 
01 50 91 00 CMPB sO, &#T : 
3¢ 12 00 BNEQ 16$ : 
0c 01 Ad 91 0 CMPB  =s-:« 1(PREV_REC), #12 : 
26 Ne BNEQ 16% ; 
04 02 A3 91 00228 CMPB @(PREV_REC), #4 . ; 
26 1B 0 F BLEQU 16$ . ; 
6D6F7246 BF 03 A p| 1 CMPL § 3(PREV_REC), #1836020294-’ : 
iC 0239 BNEG 16$ ; 
0OAO «C8 «DS 00238 TSTL § MSG_ADR + 1171 
16 1 0 F BNEG =s-:«'16$ ; 
16 AA p 41 INCL MALLS MSG_NUM : 1173 
50 01 A043 9E 00244 MOVAB 1(RO)CPREVIRECJ, PTR : 1174 
55 60 9A 00249 MOVZBL (PTR), R : 
2A 6540 91 0024 CMPB ss (RS) CPTRI, #42 F 
03 if} 2 BNEQ 16% : 
00AO C8 D0 00 MOVL § PREV_REC, MSG_ADR : 1176 
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y0Lr000 1 ~300- 138% 93:08: oF DISKSVMSMASTER:CMAIL.SRCIMSGSUBS.B32:1> 8} 
53 78 OA Q1 C3 57 16$:  SUBL3 #1, RD_RAB+40 PREV_REC ; 1178| : 
2 1 § f SUBL3R1 SPACE LEFT, R 1182 : 
FF a0 : 6 MOVAB =1(R0), SPACE tert : 
5 009° C8 D 64 MOVL MSG BUF SIZ, R 1183 ; 
009c = ¢B 4 A140 9E 00 $9 MOVAB 1(RT)CLROJ, MSG_BUF_SIZ ; | : 
PIAS Be BReIR RENAE LanagpRgg OPAC We) |i 
Q00000FF &F $6 DI 00674 CHPL RO, #255 ; | ; 
50 FF BF 9A 00 gt MOVZBL #255, RO : ; 
70 AB eee 80 0 i 17$: mov RO, RD_RAB+32 a Ms : 
0001827A = &F 88 D1 § E 18$: CMPL STATUS, #98938 : 1188 ; 
07 13 0029 BEQL ; : 
69 00 FB 00297 CALLS #0, MAILSCLOSE_FILE + 1190) : 
* 50 57 B0 00 9A 19$: HOVL STATUS, RO + 1191 ; 
00A0 C8 D5 00 H 208: TSTL $MSG_ADR + 1197 ; 
OB 12 002A BNEQ 21$ ; : 
00AO0 «CB 0098 C8 DO 002A4 MOVL § MSG_BUF_ADR, MSG_ADR + 1199 ; 
4 AA 01 DO 002AB MOVL #1, MAICSL_MSG_NOM : 1200 ; 
6C 000000006 00 04 a OOgAE 21$: BBC #4: MAIL SGL FLAGS+1, 22$ + 1204 : 
OC AE DB =A8 «(9A 00287 MOVZBL RD_NAM+59, BESC : 1206 : 
10 AE EC AB DO 00¢8¢ OVL  RD-NAM+76, DESC+4 + 1207 ; 
50 A3 AB 9A 002C1 MOVZBL RD-NAM+3, RO + 1208 ; 
06 AE 2) mm BF 28 Boscs ROVZRL RONG! 
08 AE AS = AB COD dogce MOVL = RD_NAM+4, DESC_1+4 : 1209 i 
ES AQ 9F 002D PUSHAB TECL_cVTFILE : 1210 F 
146 RE OF 00508 PUSHAB DESC 
10 AE 99F 002DB PUSHAB DESC_1 : : 
000000006 00 04 FB OO2DE CALLS #4, MAILSCOPY_MSGS : : 
69 00 FB 002E5 CALLS #0. MAILSCLOSE FILE : 1211 ; 
022A C9 9F 00ZE8 PUSHAB MAILSRENAME_ERROR : 1212 : 
0211 c9 9 O02EC PUSHAB MALL SRENAME-SUCCESS ; : 
7E 04 002F2 LRL ss = (SP) : : 
FDOO «OCF OOF $05F4 PUSHAB  P.AAF > 1213 ; 
98 AB 9F 002F8 PUSHAB MAIL$Q_RD_DESC : 1212 : 
000000006 00 07 FB 00 FB CALLS #7, LIBSRENAME_FILE : ; 
OO7EDFOB 8F DD 00302 PUSHL # > 1215 ; 
000000006 00 gi FB o030¢ CALLS a, MAILSGETMSG ; | : 
88 AB 9F 00311 PUSHAB DYN_DESC : : 
000000006 00 02 FB 00314 CALLS #2, MAILSGET_INPUT : : 
cae 9 af Pe SS EAS. BF. mazusoren_ri Peet te} 
04 00 RET : " : : 
000000006 00 08 88 003 2 22$:  BISB2 #8, MAILSGL_FLAGS+1 > 1220 3 
50 01 DO 0032A MOVL #1. RO > 1221 F 
04 0032D RET > 1222 ; 
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i JMSGSUBS .832; 


This routine is called to open the new mail message file by rece 
s 


into one file. 


and if the new mail message 
is being sent must be put in a different 
r 


a files into one file. 


' Allow 64 file ID's 


= ' FID vector 
IDNUM-1)*6)+(FIDFIELD*2)) <0,16,0>; 


Routine status 


Message file ID's 
Current ID 
Temporary FAB 
Temporary RAB 
Temporary NAM 


BYTE); 


Temporary I/0 buffer 


' Init file ID index 
CTV. se" hs 
ETYP,';*"); 
' Parse the file name 


04 o 

; 1095 i s ’ ROUTINE OPEN_NEWFILE = 

; 1997 g FUNCTIONAL DESCRIPTION: 

> 1099 1228 1 | 

: 1100 1229 1! concatenating all the new mail message files 
; 1101 1250 1! is because there is no file sharing 

3 1108 ia) 6 file is in use, the mail that 

; Vez : ¢ : file. This routine copies all the ex 
: 1199 34 ; INPUTS: 

: 1109 1 36 1 i RD_FABLFABSB_DNS] and RD_FABLFABSL_DNA] set to user's default 
: 1108 ise i } directory specification. 

: 1110 1239 1 ! OUTPUTS: 

+ 1111 1249 1 | 

: ig \¢¢) : RD_FAB is open and RD_RAB is connected to the file. 
: 1114 1508 2 BEGIN 

: 1115 1244 2 LITERAL 

: 1116 1245 2 FIDS = 64; 

+ 1117 1246 2 STRUCTURE 

: 1118 1247 2 F IDVECTORCF IDNUM,FIDFIELD;NJ 

; 1119 1248 2 Ee (N*6] (FIDVECTOR+((F 

: 1121 1250 2 STATUS, 

: 1128 1251 3 DESC: VECTORC2,LONG) 

it oc it owe ee 

> 1125 1254 2 FAB? BLOCKCFABSC_BLN, BYTE], 
+ 1126 1255 2 RAB: BLOCKCRABS$C~BLN,BYTE, 
: 1127 1256 2 NAM: SBBLOCKCNAMSC_BLNJ 

> 1128 1257 2 NAMRSS SBBLOCKCNAMSC_MAXRSS), 
: 1129 1258 2 NAMESS SBBLOCKCNAMSC MAXRSS], 
: 11g if +44 § BUFF: BLOCKCMAIL$K_INBUFFSZ, 
: 113¢ 1261 2 STATUS = OPEN MAIL_FILE(O,0); 

+ 1134 1588 $ THEN RETURN .STATUS; 

+ 1135 1264 ‘ IF .MAILSGL_FLAGSCMAIF_V_ISAM] 

; 1138 1603 THEN RETURN TRUE; 

; 1138 P 1267 SNAM_INIT(NAM=RD_NAM, 

+ 1139 P 1268 RSS=HAMSC_MAXRSS 

> 1140 P 1269 RSA=.RD_RSNAM_ BUF, 

+ 1141 P 1270 é ESS=NAMSC_MAXRS 

; 1148 137 ESA=.RD_ESNAM_BUF); 

> 1144 1 8 

3 i see iste Find all the newmail message files. 

: 1147 1276 2 CUR_FID = 0; 

+ 1148 1¢07 RD_FABLFABSB_ENS} = XZCHARCOUNT (DEF FILENAM, DEFF 
+ 1149 1278 2 RD-FABLFABSL-FNA] = UPLIT BYTE(DEFFILENAM,DEFF 
; 1130 1279 IFZERR( SPARSE(FAB = RD_FAB); ,RETURN STATUS); 
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Search for all the files and save the file IDs 


-0-742 Page 
IL. SRCIMSGSUBS .B32; 1 


OPY_DX(MAIL$Q_RD_DESC ,UTILSGETFILENAME(RD_FAB)); !So we get oldest 

ID = .CUR_FID@+ 7; 

CUR_FID,O0J = .RD_NAMCNAMSW_FID_NUM); 

CUR"FID.1] = .RDTNAMCNAMSWFID"SEQ]; 
= /RD-NAMCNAMSW~F ID "RVN 


N . 
If NOT .STATUS AND (.STATUS NEQ RMS$_NMF) THEN RETURN .STATUS; 


OOO 0000000000 000000 


oooovono 
YSRRUNSSSRVSRRA VS SONS AF iw —S Goo VEAP OOO MRR Oe OOD aR ere 


PAPAS 


Open the oldest file (the Last one found). 


RD_NAMCNAMSW_FID_NUM] = .FIDC.CUR_FID, 1: 
RD-NAMLNAMSW_FID"SEQ] = .FIDE.CUR-FID, 1]; 
= .FIDC.CURTFID.2]; 


0 Set file ID 
Fib%2 
Open by file ID 
Open file 
Clear open by file ID 
Check open status 


AB V"NAM] = 1; 
STATUS = SOPEN(FAB = RD_FAB); 


D_FAB V_NAM] = 0; 
IF"NOT .STATOS THEN RETURN .STATUS; 
IF .RD FABLE ABSB ORG] NEQ FABSC_SEQ 


| 
| 
| 

D_FAB 

TURN SIGNAL TMAILS_F ILECONFUSED, 1 ,MAILSQ_RD_DESC?) 

ILOPNJ = 1; 
| 
| 
| 


RE 
MAILSGL_FLAGSCMAIF_V_F 
FID"= .CUR_FID~-"1 


D=, ; ! Decrement file ID count 
RD_RABCRABSV_EOFJ = 1; ! Set to end-of-file 
STATUS = SCORNECT(RAB = RD_RAB); ! Connect stream 
IF NOT .STATUS 


iNm—O Oo JOARANASS SIS ASSIS SSMS 


U 
THEN (S$CLOSE(FAB=RD_FAB); RETURN .STATUS); 
RD_RABLRABSV_EOF] = 0; 


Clear EOF flag 


If there are any more files, open them and append their contents to the 
end of the last file. 


ee 


F .CUR_FID GTR 0 
HEN “BEGI 


SFAB_INIT( Create a FAR 


mk kk ke a nk td nd td td 8 = = a 2 = a = 8 8 a = a 


a ee ee ee ee ee SL _— eS) g 
OOO OO 000.0000 00 09 09.00 00 09 09 SJ NI NINN NIN NINO OO 
BLS SSSSeSre 


ee ee ee em ee ee ed ed ed od = wd = 2d 
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AIAN AA AAA AA AAA AAI AIA III POPPIN PUPP 
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P AB } 
1 Pp AC ! 
; P OP=<SQa0, ' Sequential only 
P NAM>, ' Open by NAM block 
4 NAM=NAM) ; ' NAM block addr | 
5 P $RAB_INIT( RAB=RAB, ' Create a RAB 
P FAB=FAB, ' FAB address 
7 p ' Read-ahead | 
8 P LOC>, ' Locate mode 
199 P UBF =BUF F ! Record buffer addr 
200 US2=MAIL$K_INBUFFSZ); i Record buffer size 
01 CHSMOVE (NAMS$C_BLN,RD_NAM,NAM) ; 
$06 NAMCNAMSL_RSAJ = NAMRSS; 
20 NAMCNAMS$L_ESA]) = NAMESS; 
204 CHSMOVE (.RD_NAMCNAMSB_RSL]..RD_NAMCNAMSL_RSA ,NAMRSS) ; | 
35 CHSMOVE (.RD_NAM NAM$B_ESLJ,.RD_NAMCNAMS$L_ESA],NAMESS); 
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AM $$-32 V4.0-742 


e 11 
MAILSMSGSUBS | MAIL MESSAGE SUBROUTINES 16-Sep-1984 01:0 VAX=11 45 
y0Lt000 Cen 1OBe Teco ek | NEKSUMGAASTERSCMAIC cReJASGSUBS.e5204°" (193 | 


14-Sep-1984 


SRMS_PTR= | 
EXT SUSSPARSE, SYS$SEARCH | 
EXTRN SYSSF 


OFFC 00000 OPEN_NEWFILE: 
W RD 


0 Save R2, : 
58 900000006 ; 9e 00002 MOVAB SYSS$OPEN, 1 ; | 
A 000000006 9— 0000 MOVAB SYSSOPEN, RUT ae R10 : | 
59 900000006 0 9€ 00019 MOVAB  SYSS$CLOSE, R9 : | 
58 00000000" 00 9€ 0001 MOVAB RD_FAB Es : 
5€ F974 ce 3 001 MOVAB -1876(5P), SP : 
C 000 CLRQ. -=(SP) + 1261 
FB40 gf F 0 CALLS 4% OPEN MAIL_FILE 5 
? DO 0002A MOVL RO. STATOS : 
03 5 000er BLBS STATUS, 1$ + 1262 
0296 31 00089 BAW «dS ; | 
03 000000006 00 £9 00033 1$ BLBC - MAILSGL_FLAGS, 2$ 1264 
0205 31 0003A BRW 23$ : 
0060 8F 00 6E Pe 9008p 2$ MOVCS #0, (SP), #0, #96, SRMS_PTP + 1271 
AO AB 6002 8F BO 00046 Novy #24578. SRS PTR : 
A2 AB 01 BE 0004C MNEGB #1, $RMS_PTR? ; 
AG Ag 90 A&B D0 00050 MOVL RD_ RSNAM_ ~Bur SRMS_PTR*4 : 
AA AB 01 BE 00055 MNEGB #17 $RMS~PTR#1 F 
AC AB 94 A8 D0 00059 MOVL RD *ESNAM “BUF SRMS _PTR+12 : 
56 D4 0005E CLRL © CUR F + 1276 
34 AB 0A 90 00060 MOVE HO: RD AFAB+52 + 1277 
2c AB 8F AF 9E 00064 OV , RD_FAB+44 : 1278 
58 DD 00069 Puse ORB : 1279 
000000006 00 01 FB 0006B CALLS #1, SYSSPARSE : 
01 50 £8 90072 BLAS STATUS, 3$ : 
04 0007 RET : 
58 DD 00076 3$ PUSHL RB > 1283 
000000006 00 01 FB 00078 CALLS #1, SYSS$SEARCH : 
57 50 DO 0007F MOVL RO. STATUS : 
3c 57 £9 90082 BLBC STATUS, 5$ : 
3F 56 D1 0008 CMPL  CUR_FID, #63 : 
34 14 00088 BGTR 4$ : 
58 DD OOOBA PUSHL RB > 1285 
6A 01 FB 0008C CAL'S #1, UTILSGETFILENAME : 
50 DD 0008 PUSHL RO’ : 
98 A8 9F 00091 PUSHAB MAIL$Q_RD_DESC : 
000000006 00 02 FB 00094 CALLS #2, STRSCOPY_DX : 
56 D6 00098 INCL. CUR_FID : 1286 
50 56 06 C 0090 MULL3 ots f R_FID, RO : 1287 | 
FE72 CD40 SF OOOA1 PUSHAB F1D-6 RO} ; | 
9E C4 A8 gO OOA6 MOVW RD_NAM+36, @(SP)+ § 
FE74 CD40 F QOOAA PUSHAB FIB- 3 1288 | 
9€ AB 80 OOAF MOVW RD_NAM+38, a(SP)+ : | 
FE76é CD40 OF 0085 PUSHAB FID- : 1289 | 
9E C8 AB BO 008 MOVW  RD_NAM#+40, a(SP)+ : | 
88 1 000BC BRB 3$7 > 1283 | 
0c 2 EB OOOBE 4s: BLBS STATUS, 7$ > 1291 | 
009182CA 8F 57 01 Bae 5$: CMPL SiATUS. #99018 3 
03 13 OCB BEQL 5 : 
O1FC $1 OO0CA 68: BRW 19$ : 
50 56 06 (C5 000CD 7$: MULL3 #6, CUR_FID, RO : ag 
| 


Bee Be Be Se Be Se Se Se Be Se Se Be See Se Se Se Be Se Se BH Se Be Se Se Se Se Se Se Se Se Be Oe Se Se Se Se Se Se Se Se Se Oe Se Se Oe SH Se Se ee oe SH Se Se ee ee 


| 11 
MAILSMSGSUBS MAIL MESSAGE SUBROUTINES 1b-se =1984 01:08:07 VAX=11 Bliss-32 v4.0-742 Page 46 
yo4t000 eager tees Fb tees See ddwGAAStEascHAIC. she amscsuas.e32647" (194 | 
FE72 CD40 9F 00001 PUSHAB FID-6(R0] ; ; 
(6 AB i 0 00006 MOVW a(SP)+, RD_NAM+36 : ; 
FE74 CD40 9F OOODA PUSHAB FID-4(R0) + 1296 : 
(6 «AB i 80 DF MOVW  a(SP)+, RD_NAM+38 : | 3 
FE76 CD40 OF OE PUSHAB F1D-2CR0) + 1297 ; 
c8 OA SE 80 E OVW a(SP)+, RD_NAM+40 : : 
07 A 9} E BISB2 = #1, RD_FABt7 ; 1298) ; 
8 DD OOOF PUSHL R8 + 1299 | ; 
68 01 FB OOF CALLS #1, SYSSOPEN : ; 
5 0 p OF OVL. RO, STATUS : ; 
07 «AB or A 000F8 BICB2 #1, RD_FAB+7 + 1300 ; 
CB 7 : OOF BLBC STATUS? gs + 1301 ; 
1D AB 3 FF TSTB = RD_FAB+2 : 1302 ; 
18 1 00102 BEQL = 8S F : 
58 DD 00104 PUSHL R8 + 1303 ; 
69 01 FB 00106 CALLS #1, SYSSCLOSE ; 
98 AB 9F 00109 PUSHAB MAIL$Q_RD_DESC + 1304 
01 DD 0010¢ PUSHL #1 : 
00768122 8F DD 0010E PUSHL #8290594 : 
000000006 00 03 FB 0114 CALLS #3, LIBSSIGNAL ; 
000000006 00 08 88 Oo1i¢ AS BISB2 #8, MAILSGL_FLAGS+1 + 1305 
56 D7 0012 DECL CUR. : 1306 
55 AB 01 88 00125 BISB2. #1, ~RD_RAB+5 : 1307 
50 A8 9F 00129 PUSHAB RD_R + 1308 
000000006 00 01 FB oo1¢¢ CALLS #17 SYSSCONNECT : 
57 50 DO 001 MOVL RO, STATUS : 
57 ES 00136 BLBS STATUS, 9$ + 1309 
0188 31 00139 BRW 18$ : 
55 AB 01 BA 0013C 9 BICB2 #1, RD_RAB+5 : 1311 
56 D5 00140 TSTL  CUR_FIB : 1317 
03 14 00142 BGTR 10$ : 
01C€1 31 00144 BRW 22$ F 
0050 = «&F 00 6E ees 00 2c 00147 10$ MOVCS #0, (SP), #0, #80, $RMS_PTR + 1323 
FE28 CD ar 8F BO 00151 MOVW #20483, $RMS_PTR ; 
FEgC CD 01000040 8F DO 00158 MOVL  #16777280, SRMS_PTR+4 : 
FE3SE CD 02 90 00161 MOVE #2, $RMS_PTR+22 : 
FEG? = CD 02 90 00166 MOVB #2, $RM>-PTR+31 : 
FESO CD F084 CD 9E 0016 MOV NAM, SRMS_PTR+40 : 
0044 8F 00 6E ae 00 2¢ 0017 MOVCS #0, (SP),~#0, #68, SRMS_PTR : 1329 
Foes FD 00010200 BF BO OOIRS MOVE FGOGRB. SRASTPTREG 
FEOs CD eitd et 80 a018¢ MOVW AteD $RMS_PTR+32 : | 
FEO8 CD 10 AE 9E 0019 MOVAB BUFF. $RMS~PTR+36 : 
FE20 CD FE28 CD 3 00199 AB FAB, SRMS_PTR+60 : 
FD84 ~=sCD AO AB 960 8F é O1A0 MOVC3 #96. RD_NAM, : 13 0 
FD88 CD 0310 CE 9E 001A9 MOVAB NAMRSS, ~NAM+4 : 1331 
FD90 «= CD 0210 CE 9E 0180 NAMESS, NAM+12 : 13 é 
51 AS) AB OA O18 MOVZBL RD_NAM+3, R1 : 13 
50 AL OA ‘ 1BB RD“NAM+4, RO : 
0310 CE 60 51 O1BF MOV<3 R17 (RO). NAMRSS : 
51 AB As A iC MOVZBL RD._NAM+11, R1 > 1334 
50 AC OA p 109 MOVL.  RDTNAM+12. RO : 
0210 ce 60 51 Oicp MOVC3 R17 (RO), NAMESS : 
6 06 ¢€5 GO1D3 118:  MULL3 #6, CUR_FID, R2 : 1339) 


11 Liss-32_V4.0-742 oe $7 | 
1§-$e0- 1984 42:48:58 DISKSVMSMASTERCMAIL.SRCIMSGSUBS.832;4 | 
AGE SUBROUTINES 14-Sep- , | 
MAILSMSGSUBS = MAIL MESS sepcdeans 
vO4-008 FE72 CD42 44 107 ttt O(SP) +» NAN+36 ; 1340 
FDA8 CD FE74 coed SF ie} NOV 9(3P) +, NAM+38 : 1341, 
aia, 7) Og eae i a8 ROW” 9(SP)*. NAMS4O 2 1362, 
Foac > re28 Ob OOF DONE CALLS” #1. SYSSOPEN ere 
1 FB OO1F9 Sout?” STATUS : 
3 38 EB OOtFE LBS STATUS, 12s | 
7 38d 00208 CALLS i. $1SSCLOSE | 
3 33 BO 90907 Hove = STATU tases) 
A : 
FEGS CD 9$ 00908 128 iste is : 1346 | 
65 18 0030F MOVE #34471936, FILE_DESC ; 
6£ 020E0000 ef b0 88 ik CLRL —«-FILE_DESC+4 ; 1348) 
FeD8 CO 9F 00ci8 CALLS” #1. SYSSCLOSE 1349] 
69 22 PUSHL RB SE > 1350 
at PB O0g94 ROVZBL NAM*ST. DEV DESC : 1351 
08 4 FDBD ee >A 3 i OVL NAM+68, DEV “DESC +4 st 
OC AE FDCB se Dp 009 3 pusiie Fip-6cR23 | 
ere ORE OF O093h CALLS, #Sy"LIBSFID_TO_NAME ; 1354, 
000000006 00 03 BF otsze stu FILE_DESC 
oS TS Boees Rovae FILE.pEsc, Ro pan 
50 4B BRB : 
ee co = 
GA 34 148:  PUSHL RO : 
0256 y 
coresiza OP Mtge H2F0FP a Cc 
000000006 00 Be DD 00 85 CALLS. #1, STRSFREE1_DX : 1358 
000000006 00 a 8 ti move 18390508, RO ~ Fis 
50 00768122 8 oe 09 5 “Sg ng Som 
mn pirkemdt 8 og7 ADbE A ALSO : 1366 | 
ae Mao ras | 
yee $7 3 of 8 ae BLBC STATUS RD RAB 34 : 1368 | 
' FEO6 CD BO 00298 dg RAB+40, RD_RAB+40 ; 1370) 
aa ss es eH PUSHAB RD_RAB ; | 
‘ 70 OF EB OODAT CALLS 8}. SYSSPUT : 137) | 
000000006 99 D9 0GKE Beas SATUS. Nes te 
3 t 4 Bo CHPL STATUS. #98938 F 
0001827A BF 7, 83 Basen BEQL 0$ 


"1 
MAILSMSGSUBS | MAIL MESSAGE SUBROUTINES 1h-Sep-1984 01:0 
y0Lt000 12-80871382 93:2 
FE28 CD 9F 0028 PUSHAB 
69 1 FB 00S CALLS 
9 [ae | 6 
6 + DB 90569 198: ROUT 
& 005¢C RET 
50 AB 9F 009CD 208:  PUSHAB 
000000006 00 01 £8 00900 CALL 
FE2D. CD 80 $F 88 0090 BISB 
E D4 00900 CLRL 
10000000 BF DD 9090E PUSHL 
000000006 00 2 £8 OOZES CALLS 
FE28 CD 9F O0SEC PUSHAB 
69 | £8 003FO CALLS 
000000006 00 0 FB OOF CALLS 
FE2D. CD 80 BF BA OOSFA 1CB3 
62 g FS 00 SOBGTR 
83 14 0030 RB 
FECB $1 00505 218: BY 
50. AS 9F 00308 528:  PUSHAB 
000000006 00 01 FB 0050 CALLS 
50 01 DO 00312 23$: MOVE 
04 0031 RET 


; Routine Size: 790 bytes, Routine Base: S$CODE$S + 0A94 


g: HA VAX=11 $732 V4.0-742 
8 DISK SK$V nen TER: (MAIL. SRCIMSGSUBS .832; 1 


FAB 
“. SYSSCLOSE 
* SySs¢ OSE 
STATUS, 
RD_RAB 
#1 SYSSELUSH 
#108, FAB+ 
=(SP5 
468435456 
#2, MAILSUP_PRIV 
FAB 

SYSSCLOSE 
Ms MAIL SDQWN_ PRIV 


eas! mai 


RD R AB 
#1, SYSSREWIND 
#1, RO 


ref 


Be Se Be Be Se Se Se Se Ge Se Fe Se Fe Se Se Fe Se Fe Se Be Fe Se Be 


1375 


MA 


MAIL MESSAGE SUBROUTINES 


rasanges 


~EXTRN 
0000 00000 DELFILE:.WORD 
AC DD 00002 PUSHL 
01 FB 00005 CALLS 
04 0000C RET 


SCODES + ODAA 


000000006 00 


; Routine Size: 13 bytes, Routine Base: 


: 1260 1 $ 1 ROUTINE DELFILE (FAB) = 

i Tagg feo 

; e§ $1 | FUNCTIONAL DESCRIPTION: 

: 1265 1 3g ! This action routine is gatled by LIBSFILE_SCAN for each file which 
3 1 ¢ 1594 ! satisfies the file specification match. The file is deleted 
; ! 6 : R? 

: 1 6 1309 5 map 

: 1270 1398 FAB : REF S$BBLOCK; 

: 1553 1200 § LocaL 

C8 lames 

; ; ie 1408 STATUS = SERASE(FAB=.FAB); 

: 1277 1405 2 RETURN .STATUS 

; 1278 1406 1 END; 


SYSSERASE 
Save nothing 
#1, SYSSERASE 


v4. 
: (MAI JMSGSUBS .B32; 


0-742 p 
L.SRe .. 


— | 


oo 
(18) 


1388 
1403 


1406 


Kk 11 
See a eee Seven IECRESSEs QU:SD SU ABhtedé oth Szansosns.oe 


3 3 1407 GLOBAL ROUTINE MAILSDEL_TMPF : NOVALUE = 

3 : 1 1? BEGIN 

5 : 5 13} ; FUNCTIONAL DESCRIPTION: 

3; 1285 1316 ! This routine eolotes all the MAL.] as files that may be in 
3 1 141 : the user's login directory. s is done to prevent inadventantly 
3 ; aie sending an old message when a quit is done from the editor. 
3 1289 1218 ee 

: 159) 12} LOCAL 

3: 1 35 eis : SFAB_DECL, 

3; 129 1420 SNAM AM-DECL 

3 1294 1421 RSBUF : SBBLOCKLNAMSC_MAXRSS], 

3 : 95 1? ; ESBUF : SBBLOCKCNAMSC_MAXRSS); 

3 1 38 P 1424 SFAB_INIT(FAB=FAB, 

3; 1298 P 1425 NAM=NAM 

> 1299 P 1426 FNS=.MAIL$Q_ THPF ILE -PESCEDSCSW_LENGTH] 

: 1300 P 1427 FNA=.MAIL$Q~TMPFILE-DESCLOSCSA_POINTERS, 

3 1301 P 1428 BNS=ECHARCOONT( see ‘ 

; : Oe 1 , DNA=UPLIT(ZASCII ';*')); 

8 1302 P 1431 SNAM_INIT (NAM=NAM 

; 1305 P 1O88 ESS=NAMSC “MAXRSS, 

3; 1306 P ee ESA=ESBUF, 

3; 1307 P 1434 RSS=NAMSC *MAXRSS, 

; 1308 1435 RSA=RSBUF); 

3; 1309 1436 

3; 1310 1437 LIBSFILE_SCAN(FAB,DELFILE,0); 

3 1311 1438 RETURN; 

; 1312 1439 H 


00087 -BLKB 1 
00 00 2A 38 OODB8 P.AAI: .ASCII \;*\<0><0> 


007C 00000 ~ENTRY Ball se) TMPF, Save R2,R3,R4,R5,R6 
56 F7 AF 9E 00002 MOVAB 
SE FD50 cE 9E 99006 MOVAB “BEBCEP). 
00 6E 8 aD 2c Boots MOVC (SP) 30. #80, SRMS_PTR 
BO AD 5053 F 80 00014 MOVW #20485. SRMS_PTR 
C6 AD 2 OOO1A MOVB » $RAS Frasss 
CF AD 02 90 0001 MOVB , SRMS PTR+ 
D8 AD FF5O cD 3 0 MOVAB NAA, S 
DC AD 000000006 60 p 6 MOVL MAIL$Q_ “TRPFILE® DE C+4, SRMS_PTR+44 
EO AD 66 MOVAB P. ithe | 
£4 AD 000000006 9 MOVB MAIL$O g IMPFTLE DESC, SRMS_PTR+52 
ES AD : 3 ¢ MOVB a3, $§ 
00 6E C 40 MOVCS CEP) #0, 6. $RMS_PTR 
FF5O cD 004 
FF5O CD 6002 8F BO O004A MOVW #24578, $RMS_PTR 


PH 018) 


Pete Se Se Se Ge Ge Se Ge Se Ge Ge 


1435 


4 
MAILSMSGSUBS | MAIL MESSAGE SUBROUTINES 18-5 Sep-19 VAX-11 BLiss-32_V4.0-74 1 
yoseo08 ence aa eee, NR SUMGHASTERCCHAIL che oMscsuas.83204°° (19) 


SRMS_PTR+2 ; | 


; Routine Size: 119 bytes, Routine Base: S$CODE$ + ODBC 


FF CD 01 8E 1 MNEGB ; : 
FF CD 0100 cr gt 00035 MOVAB Rsbu F, $RMS P PTRe : ; 
FFSA CD 1 BE 00050 MNEGB USAMS PTR+1 : ; 
FF5C CD 6E 9E 00062 MOVAB Eséut, Sams npTR+12 : ; 

7E D4 0006 CLRL (SP) + 1437 ; 

82 AF 9F 00069 PUSHAB DELFILE : : 

BO AD 9F 0006C PUSHAB : : 

000000006 00 03 FB 0006F CALLS We LIBSFILE_SCAN : ; 
04 00076 RET + 1439 : 


3; Run me: 2:41. 
; Elapsed Time: 02:43.2 
3: Lines/CPU Min: 2092 

3 Lexemes/CPU-Min: 40214 

3 emery Used: 298 pages 
e a 


; Compilation Complete 


811 | 
MAILSMSGSUBS = MAIL MESSAGE SUBROUTINES 16-Sep-1984 01:08:07  VAX-11 Bliss-32_ V4.0-742 Page 52 
vou=000 10=860- 1984 % a 3 DI SKSVMSMASTER: CMAIL. SRCJMSGSUBS .B32;1° eid 
: 1314 1440 1 END | : 
; 1315 1441 0 ELUDOM ; 
: 
.EXTRN LIBSSIGNAL | ; 
: PSECT SUMMARY : 
; Name Bytes Attributes ; 
;  SOWNS 308 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 
; SCODES 3635 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 
H Library Statistics : 
: socceeo= Symbols -o-es--" Pages Processing ‘ 
; File Total Loadec Percent Mapped Time ‘ 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 148 1 581 00:00.7 : 
; 7$255$DUA28: CMAIL.OBJ JMAILDEF .L52;1 457 22 4 26 00:00.2 | : 
; COMMAND QUALIFIERS 3 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:MSGSUBS/OBJ=OBJ$:MSGSUBS MSRC$:MSGSUBS/UPDATE=(ENH$ :MSGSUBS) 
; siaes 3574 coge,* 405 data bytes 
| 
| 


N 


ENT CORPORA 


am Vax7uae va AND PROPRIET 


DIGI 
VAX/VMS V4.0_ CONF 


TI 
AR 


0 
Y 


